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COMECE JOGO 



MAPEAMENTO DAS JOGADAS 



MAIS UMA VEZ? 



Examinamos, no artigo anterior, 
OS principios que fundamentam o jogo 
A Raposa e os Gansos. Come^aremos 
agora a montar o programa, 
digitando suas primeiras rotinas - 
entre elas, a que mapeia os movimentos. 




Apresentamos aqui as rotinas dc ini- 
cializacao e de mapeamento dos movi- 
mentos. Alem delas, voce devera digi- 
tar a rotina que oferece ao jogador mais 
uma partida, Nesse ponto, porem, a exe- 
cut'ao do programa nao resultara em na- 
da, pois ainda faltam rotinas muito im- 
portantes. Todas elas serao dadas no 
proximo artigo da s^rie. 



UMA VISAO GERAL 



O programa avalia as posi(;oes ocu- 
padas no tabuieiro segundo a coiifigu- 
ra^ao das pe^as. Como cada posigao 
tem urn valor, pode-se, ao analisar as jo- 
gadas a frente, escolher o melhor movi- 
mento pelo resuliado numerico maior. 

O programa irabalha de tres manei- 
ras quando esta analisando jogadas. A 
mais simples (nfvel 1) consiste no exa- 
me de apenas uma jogada. Nos niveis 




m 



mais elevados, o programa exiimina as 
miiltiplas possibilidades de jogo, utili- 
zando o algoriimo alfa-beia para eco- 
nomizar tempo. Nos niveis intcrmcdia- 
rios, analisa todas as possibilidades 
abertas no momento, 

As rotinas siiuadas da linha 2010 a 
linha 3000, que sao executadas apenas 
uma vez, foram colouadas no fim do 
programa. No come<;o estao as rotinas 
mais importantes,' o que garante uma 
maior velocidade ao jogo. 



INICIALIZACAO 



As rotinas apresentadas a seguir, usa- 
das para inicializar o jogo, dimensionam 
as matrizes, defmem as f undoes e, no ca- 
so de alguns micros, esiabeiecem tam- 
bem o tabuieiro. 



2010 DIM G(4): DEF FN U(A)-INT 

(A-4*TNT tA/4))r t}EF FN V(A)=1N 

T (A-8*1.NT (A/8))>-4: DEF FN V{ 

A)=1NT fA-Z»IMT (A/ZJ) 

20] 5 LET HF=0: LET HG=0 

2020 DIM BC32); LET B(l)=l: FOR 

I-l TO .11: LET B ( l + l ) =B (I J *2 : 
NEXT I 

2026 LET BX=B(.12)*2-BC25) : LET 
E = 1E.10: LET H = -1E30 
2030 LET L2-LN (2) 
2040 DIM Ii3{16,2,16) 
4) : LET G$(l)-" ": 

"+CHH$ 146+CHR$ 
,4) : LET H$(l)=" 



I • DIM 05 ( 2 , 
LET r.$[2)=" 
147: DIM HS(Z 
": LET HS(2)= 
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CHBS 146+CHRS 14 7+ " " 
2050 LET X-1: FOP h=l TO 2; FOB 
B-1 TO 2: FOR C=l TO 2: FOR D- 
1 TO Z: LET B$ (X , 1 ) =0$ <D) +05 (O 
+GS(B)+«S(A) 

2060 LET BS{X.2)=rt$(A)+HS(B)+HS 
(C)+H5tD): LET X=X+1; NEXT Z>: H 
EXT C; NEXT B: NEXT A 
20 70 DIH SS(ft.J6): ROSUB 6000 
2090 DIM FStZ.-l): LET FS(1)-" 
"+CHR3 144+CHRS 145: LET FS(2)- 
CHR9 JI^+CHRS 145+" " 
2095 DEF FN C{B)=FN tJ (B-1)* (4-8 
•FN y(B-l))+12*FN V(B-l) 



10 GOTO 2010 

2010 DIM G(4) ,B(31) ,M<3,31} .X(3 

1> ,2(31) 

2020 B(OJ=1:FOH K=l TO 31:B(K>= 

B(K-1)*2:NEXT 

2026 BX-B(31)*2-B{24) :E-1E30:H= 

-1E30 

2030 l2-LOG(2] :DEFFNA(F)-INTCLO 

G(F)/L2+.001) 



nada na linha 2040, mostra as colimas 
do tabuleiro ja ocupadas pelas pegas. F$ 
€ usada para mostrar a pega da raposa 
e a casa em que esta, e H$, para os gan- 
sos e suas casas. A matriz S$, determi- 
na numero dos quadrados. 

Nos demais microcompiitadores, as 
figuras sao definidas em alta resolufao 
por uma outra rotina. 



COMECANDO 



Esta rotina permite a escoiha das pe- 
gas com que se vai jogar e o grau de di- 
ficuldade,_Comece pelo mais ficil: 



>% 



7 KEYCIFFlGOTO 2010 

10 GOSUB 4000:COTO 1010 

7010 DIM G(4) ,R(3l) ,M(3,31) .XCl 

1) ,Z(3] ) .GS[4, J) 

2()?0 B(0)=1:FOR K=l TO 31;8(K)=^ 

B(K-1)*2:NEXT 

2026 BX=B(3])*2-BCZ4) :E-1E+30:H 

--IE+30 

2030 L2=LOG(2) ;DEFFNA{F)=INT(LO 

G{F)/L2+lE-03) 

?040 OPEN "GRP;" FOR OUTPUT AS 

*1 



SDCS] 



10 GOTO 2010 



2010 DIM GC4) .B(31) ,M(3.31>,X( 
31),Z(31):V$ - CHIl$ (7) + GHR 

s (1) + CHBS H) + cams (?) 

2020 8(0) = 1: FOR K = 1 TO 31 r 

B(K) - B(K - IJ « 2: NEXT 

2026 BX - B{31) * 2 - B(Z4):E - 

1E30:H - - 1E30 
203O LZ - LOG (2): DEF FN A(F 
) = INT ( LOG (F> / L2 4- .001) 

A Ikiha 2010 dimensiona a matriz uti- 
lizada para armazenar as posicoes dos 
garsos. A linha 2020 numera cada qua- 
drado do tabuleiro. 

A linha 2030 determina o numero to- 
tal de configuragoes que o programa po- 
de avaliar. O valor 0.001 foi adiciona- 
do a definicao da fungao A para evitar 
a ocorrencia de erros de arredondamen- 
to no cilculo de logaritmos. 

No Spectrum, a matriz B$, dimensio- 




2700 LET F=2: LET G(l)=29: LET 

G(2)-30: LET G{3)-31: LET G(4)- 

32: GOSUB 2710: GOTO 1010 

2710 CIS : PHINT AT 0,8; INK Is 

■RAPOSA E GANSOS": INPUT "VOCE 

QUER ..."iTAB 5:"SEH A RAPOSA ? 

(S/N) "!I3 

2720 LET PF»0; IF IS'="S" OR YS" 

"p' THEN GOTO 2760 

2730 LET PF-1: IF IS<>"N" AND I 

9<>"n" THEN GOTO 2710 

2740 INPUT "NIVEL DE HABTLIDADE 

DA RAPOSA ? ":SF! IF SF<1 OH S 
F>10 THEN GOTO 274 
2750 LET HF=131*{SF-5)+613*(SF= 
6)+1997*(SF>6) 

2760 INPUT "VOCE QUER ..."iTAB 
5:"C0NTBOLAH OS GANSOS ?(3/N) " 
ilS 

2770 LET PG-0: IF IS-"S" OR I$- 
"s" THEN GOTO 2860 
2760 LET PG=1: IF I$<>"N" AND 1 
SO'n' THEN GOTO 2760 
2790 INPUT "NIVEL DA HABILIDADE 

DOS GANSOS "jSG: IF 9a<l OR S 
G>10 THEN GOTO 2790 
2800 LET RG-131*(3G"5}+613* (SG= 
6)+1997*(SG>6) : IF HF<HG THEN 
LET HF=HG 

2860 INPUT "VOCE QUER ALTERAR A 
S POSICOES INICTAIS ?";IS: IF 

IS-"N" OH I$-"n" THEN GOTO 30 
00 

2880 IF I$<>"S" AND IS<>"a" THE 
N GOTO 2B60 

2890 GOSUB 210: GOSUB 310; INPU 
T 'QUER MOVER A RAPOSA ?";IS 
2900 IF IS-"K" OR I$-"n" THEN 
GOTO 29 30 

2910 IF IS<>"S" AND IS<>"3" THE 
N GOTO 2890 

2920 INPUT "PARA ONDE ?";F: IF 
F<1 OR F>3Z THEN GOTO 2920 
2930 FOR G"l TO 4: GOSUB 210; G 
OSUB 310 

2940 INPUT "QUER MOVER GANSO 
DA POSICAO"; (G(G) );"?": IS 
2950 IF IS-'N" OR I$-"n" THEN 
GOTO 2990 
2960 IF I$<>"S- AND ISO'a" THE 




H GOTO 2940 

2970 INPUT "PARA ONDE ?"il: IF 

FN X(l) OR I-F THEN GOTO 2960 

2972 IF Kl OR I>32 THEN GOTO 

2970 

2980 LET G(G)-I 

2990 NEXT G; TF FN X(F) THEN P 

HINT "HA IJM GANSO SOB A RAPOSA" 

: FOR I-l TO 1500: NEXT I: GOTO 

2910 
3000 RETURN 



a 



J 



2500 DIM Htl4005 .5(1400) 
2700 F-l:Otl)-28:G(2)-Z9rG[3)-3 
0:G(4)-31:QOSUB 2710;GOTO 1010 
2710 CLS: PRINT "VOCE «UER SER A 

RAPOSA (S/N) ?"; 
2720 K$-INKEY3:IF KSO'S" AND K 
SO'N" THEN 2720 

2730 PRINT KS:PF-1;IF KS-'S" TH 
EN PF-0:GOTO 2 760 
2 740 PRINT; PHINT "NIVEL DE HABI 
LIDADE DA HAPOSA (0-9) ?' ; 
2745 K$-INKEYS:IF KS<"0" OR KS> 
"9" THEN 274S 



^.1 
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2746 SF-UALtKS)+I 

2750 HF--131*(SF- 
1399* {SF>6) 
2760 PRINT: PRINT 
TROLAR OS GANSOS 
2770 KS-INKEYS;IF 
SO-N* THEN 2770 
2780 PRINT K$:PG 
EN PG-0:G0TO 2860 
2790 PBINT:PBINT 
I DADE DOS GANSOS 

2795 KS-INKEYSrIF 
"9- THEN 2795 

2796 SG-VAL(K$)+1 
2800 HG— 131*(SG- 
1399* (Sa>6) :IF HF 
2860 PRIKT: PRINT 
RAS AS POSICOES 
)?": 

2870 K$-INKEYS:iF K3<>"S" AND K 
$<>"N* THEN 2870 
2880 IF K3-"N" THEN 3000 
2890 aosUB 210 

2920 DRAW"BMieO,80"+MW$:X)C-FNXX 
(1) :YY-FNYy(l) :GOSUB 1810:F-4*I 
NT(YY/20):F-FNCN{F) 
2925 PUT (68, 8] -(87, 27} ,SQ,PSET; 
PUT(XX,Y¥+5)- [XX+19.YY+13) .FX.P 
SET 



: PRINT KS 
5)-613*(SF-6)- 

"VOCE QUEB CON 
(S/N) 7"; 
K$<>"S" AND K 

1: IF K3-'S' TH 

NIVEL DE HABIL 
tO-9) ?"; 
K$<"0- OR KS> 

: PRINT KS 
&)-613*{SG-6>- 
<HG THEN HF'HG 
VOCE QUER ALTE 
INICIAIS (S/N 




2930 FOB G-1 TO 4:G0SUB 210 
2940 XX-FNXX(G{G)) :Xl-XX:Yy-FNY 

Y(G(G) ) : Y1-YX:G0SUB 1B10:PUTCX1 

,Y1)-(X1+19,¥1+19) ,SQ.PSET 

2950 I-4*INT(YY/20) :I-FNCN[I) 

2960 IF (FNX(I) OH I-FJ AND I<> 

G(G) GOSUB 5000: GOTO 2940 

2970 PUT(XX.yY+5)-(XX+19,yY+14) 

,GS,P3ET:GCG)=I 

2990 NEXT:IF FNX<F) GOSUB 5000: 

GOTO 2920 

2995 C»1:G-G{1) 

3000 RETURN 



m 



2500 DIM RdJOO) .3(1100) 
2700 F-l:G(lJ'=28;G(2)-29:G(3>-3 
0:G(4)=31:GOSUB 2710:GOT0 10 
2 710 CtSiPRINT'Algutfm jooa com 
a rapoaa? (S/N) "j 
2720 KS = TNKEY5:IF KSO'S" AND K 
SO'N" THEN 2720 

2730 PRINTKS:PF=l:IF K$»"S" THE 
N PF=0;GOTO 2760 
2740 PRINT :PRINT"Habili(}ade da 
raposa? (0-9) "; 
2/45 KS = INKEy3:IF KS<"0" OR S<5> 
"9" THEN 2745 
2746 SF-VAL(k$)+l;PRINTK$ 
2750 HF--131«(SF-5)-613«(SF-6)- 
1099* (SF>6) 

2760 PRINT: PBINT"Alou«B jooa c.o 
m OB ganciaa? (S/N) ' ; 
2770 KS = INKEY5:IF KSO'S' MJD K 
SO'N' THEN 2770 

2780 PRINTKS:PG-1:IF KS='S" THE 
N PG=0:GOTO 2860 
2790 PRINTrPRINT'Habilidade dos 
ganBOB? (0-9) "; 

2795 KS-TNKEYSrIF KS<"()'' OR K$> 
"9" THEN 2795 

2796 SG-UAL(KS)+1:PBINTKS 

2800 HG— 131«(SO-5)-613« (SG-6) - 
1099"(SG>6) :IF HF<HO THEN HF-HG 
2860 PRINT; PRINT"Uoc« Quer alte 
rar as posi^Ses inicate? (S/N) 

2870 KS-INKEYSilF KSO'S" AND K 

SO'N" THEN 2870 

2880 IF KS-'N" TKSN 3000 

2890 G08IJB 210: GOSUB 4000: GOSUB 

2920:GOTO 10)0 

2920 PRESET (188, 60) i PRINTIl , "P 

ara ?" : XX-FNXX{1) : YY-FNYY ( 1} :G0 

SUB .lfllO:F-4*INT((YY-2)/20) :F-F 

NCN(F) 

2925 PUT sprite; FX,{XX,YY),6 

2930 FOR G-1 TO 4 : GOSUB 210 

2940 XX=FNXX(G(a) ) rYy=FNYY(G(G) 

) : GOSUB IBIO 

2950 I-4*INT((VY-2)/20) :I-FNCN( 

I) 

2960 IF (FNX{I) OB I-F) AND I<> 

G(G) THEN COSUB 5000:OOTO 2940 

2970 GS(5-a.l)-I;G(G)-I :PUT SPB 

ITE GS(5-G,0) , (XX, YY) .15 

2990 NEXT: IF FNX(F) THEN GOSUB 

5000:GOTO 2920 

2995 C=l :a-0(l) 

3000 RETURN 
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2500 DIM n{1500) ,9(1500) 

2 700 F - I: FOR I » 28 TO 31:G( 

1-27) - I: NEXT ; G03UB 2710: 

GOTO 10)0 
2710 HOME ; VTAB 22; PRINT "AL 
OUEM JOGA COM A RAPOSA? (S/N) " 

2720 GET K$: IF K$ < > "3" AN 
D K5 < > "N" THEN 2720 
2730 PB1NT KS:PF - 1 : IF KS - 
"S" THEN PF - 0: GOTO 2760 
2740 PRINT -HABILIDADE DA BAPO 
SA? (0-9) "i 

2745 GET K$ : IF K9 < "0" OR K$ 

> "9" THEN 2745 

2746 SF - VAL (KS) + 1: PRINT 
KS 

2750 HF - 131 * (SF • 5) + 6n 

* (SF - 6) + 1499 * (SF > 6} 
2760 HOME : VTAB 22: PRINT "AL 
C5UEM JOGA COM OS GANSOS? (S/N) 

27 70 GET KS: IF K$ < > "S" AN 

D KS < > "M" THEN 27/0 

2780 PRINT KS:PG = 1: IF KS = 

"S" THEN PC, = 0: GOTO 2860 

2790 PRINT "HABILTDADE DOS GAN 

SOS? (0-9) "; 

2 795 GET K5: TF K$ < "0" OH KS 

> -9" THEN 2795 

2796 SG = VAL (KS) + 1: PRINT 

KS 

2B00 ffc; = 131 * {SG - 5) + 613 

* {3G = 6) + 1499 * (KG > 6) : r 
F HF < H« THEN HF = HG 

2860 HOME : VTAB '/2; PRINT "QIJ 
ER MODAH AS POSICOES INTCTAIS? 
(S/N) ": 

2870 GET KS- TF K$ < > "S" AN 
D KS < > "N" THEN Z870 
2880 IF KS - "N" THEN 3000 
2890 GOSUB 2J0 

2920 HOME : VTAB 22: PRINT "MO 

VE PARA ONDE?":XX = FN XX(J):Y 

Y = FN YY(U: GOSUB 5B10:F = 4 

« INT (YY / 20) :F = FN CNtF) 

2926 HCOLOR= 0: DRAW FX AT 120 
,8: HC0LOH= 3: DRAW FX AT XX + 
2,YY + B 
Z930 FOB G = 1 TO 4: GOSUB 210 

2940 :XX = FN XX(G(G)):XN » XX 

:YY - FN YY(GCG)):YN = YY ; GOS 
tJB IBIO: HC0LOH= 0: DRAW GS AT 
XN + 7,YN + 5 
2950 1=4* TNT (YY / 20): I = 

FN CN(T) 
2960 IF ( FN X(I) 
P J < > G(G) THEN 

GOTO 2920 
2970 HCOLOR= 3: DRAW «S AT XX 
+ 7, YY + 5 :G(C) = I 
2990 NEXT : IF FN X(F) THEN 
GOSUB 5000: GOTO 2920 
2995 C - 1:G - G(l) 
3000 RETiraN 

A linha 2700 detcrmina as posi^oes 
iniciais, com os qiiairo gansos ocupan- 



OR I - F) AN 
GOSUB 5000: 



do OS quatro quadrados da coluna infe- 
rior do tabuleiro, e a raposa, o segundo 
quadrado a partir da esquerda do video, 
na coluna superior. 

Em seguida, as linhas 2710 a 2750 pe- 
dem que se defina quern jogari pela ra- 
posa e que seja indicado um nivel de di- 
ficuldade de 1 a 10, se for o computa- 
dor. As linhas 2760 a 2800 sao seme- 
Ihantes, s6 que tratam dos gansos. 

O jogador pode ajustar as posi^des 
iniciais n5o s6 para dar continuidade a 
uma partida (seri precise tomar nota 
das posi(;6es), mas, tamb^m, para estu- 
dar e tentar ganhar o jogo de uma posi- 
fSo particuiarmente interessantc. As li- 
nhas 2860 a 3000 perguntam se o joga- 
dor quer alterar as posigdes de infcio, 
realiza todas as modificapoes necessirias 
e verifica se esias estao de acordo com 
as regras. 



MAPEAMENTO DAS JOGADAS 



A rotina de mapeamento de jogadas 
e uma das mais importantes do jogo: 



140 DEF FN X(B)=B=G(1J OB B-G( 

2) OR B=G(3) OR B=G(4) 
2100 DIM R$(e,16) 
2142 DEF FN 2 (B) = (B=G ( 1) ) + (B-G ( 
2) )*2+(B-C(3))«3+<B+G(4))*4 
2150 DIM M(4,32>: DIM X(32): DI 
M 2(32) 



2160 FOB B"l TO 32; LET U-B-1-4 
*INT (B/4-.2): FOR A-1 TO 4: It 
T M{A.B)-(B-2)-2*U+fl*((B<5) OR 
(A>2) )+(A»7-6)«(U-3)+{A-Z)+(A-2 
)+(A-4): NEXT A; LET X(B)-((B>4 
) + (B<29) )*((U<.1)+1) : LET Z(B>"( 
B>4)'*{ (U<3)+1) : NEXT B 
21,80 DIK U<11): DIM A(l.l)r DIM 
F(ll) : DIM Pdl) : DIM C(ll) : DI 
M R(l) : DIM 3(1) 



Q 



■{(B>3)+(B<28))«( 

■1 

•(B>3]"(((3 AND B 



2110 DErPNF(B}- 

((3ANDB)<3)-1)- 

2120 DEFFNG(B}< 

)<3)-l)-l 

2140 DEFFNX(B}-(B-0(1)ORB-G(2)0 

RB-G(3)ORB-G(4)) 

2142 DEFFN2(B)--(B-G(1)>-{B-G(2 

) ) «2- (B-G(3) ) *3- (B-0(4) ) »4 

2150 DEFFNXX(B)--((7ANDB)<4)«(2 

8+40*(3ANDB))-({7ANDB)>3)*{l26- 

40*(3ANDB)) 

2155 DEFFNYYCB)-e+20*INT(B/4) 

2156 DEFFNCN(B)-B-( (7ANDB)<4)«( 
XX-2B) /40- { (7ANDB) >3) * (128-XX) / 
40 

2160 FOR B-0 TO 31: FOR A-0 TO 3 
:M(A.B)-B-2*(3ANDB)-2-8*(fl<4 OR 
A>l)-(1+A«7)*((3 AND B)-3)+(l 
AND A) :K£XT:X(B)-FNF(B} rZ(B)-FN 
G(B) :NEXT 



m 



2110 DEFFNF(B) 
((BM0D4)<3)-1) 



= ((B>3) + (B<28) )«( 

-l" 
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2120 DEFFNG( 
3)-l}-l 
2140 DEFFNXf 
RB-GC3)0RS-a 
2142 DEFFNZ< 
))*2-(B-Gt3> 
2144 DEFFNZZ 
-<rs(2,l))*2- 

(4,n)*4 

2150 DEFFNXX 
e+40*<BMOD4) 
40*(BMOD41 ) 

2155 DEFFNYY 

2156 DEPFNCN 

xx-3e)/40-a 

40 

2160 FOR B-0 
:K(A,B)-B-2* 
A>l)-(i+A*7 
2) ;NEXT:X(B} 
:NEXT 



8)-(B>3)*l((BMOD4)< 

B)-(fl-a(l)0RB-a(2)O 

(4)) 

B)--(B-G{1) )-(B-0(2 

)*3-(B-G(4) )*4 

CB) — [B-GS(l,l})-(B 

C8-QS(3,i))*3-tB-aS 

CB) "- I (BM0D8X4)" (3 
)-({BMODfl)>3)*(13a- 

CB)-20+20*INT[B/4) 

<;B}-B-((BM0D8)<4)''C 

BMODe)>3)*(],38-XX)/ 

TO 31: FOB A-0 TO 3 
CBM0D4)-2-8«(B<4 oh 
) *( (BMOD4)-3)+(AMOD 
-FNF{B) :Z(B)-FNG<8} 



JllD DEF FN MDCX) = X - ( INT 

(X / MD} « MDJ : DEF FN M2 (X) 
- X - { INT {X / 2) * 2) : DEF 
FN M4CX) - X - ( INT (X / 4) * 
4): DEF FN M8 (X) - X - ( INT ( 
X / 8} * B) 
2115 DEF F« F(B) 

28)) * ({FN 

1 

DEF FN G(B) 

M4(B) < 3) + 

DEF FN X(B) 

B = G{2) OR I 



(B < 

1) - 
2120 
(( FN 
2140 
1) OR 

= G(4) ) 
J142 DEF 



=■ ((B > 
M4(B) < 



1) 
.1) 



= (B 
]) - 



3) 



> 

1 

- (B = G( 
= G{.1) OR B 



FN Z{B) 



(B 



Gd) ) 



+ (B = G(2) ) * Z + (B « 0(3)) 
* 3 + (B - G(4) ) * 4 
Z150 DEF FN XX(B) - ( FN MB(a 
) < 4) * (XI + 21 + 40 * FN M4 
CB)) + ( FN MB(B) > 3) * (XZ ~ 
41 - 40 * FN M4(B) ) 
Z155 DEF FN yy(B> - Yl + 20 « 

INT (B / 4) 
2156 DEF FN CN (B) - B + ( FN 
M8(B) < 4} * (XX - 7B) / 40 + t 

FN M8(B) > 3) * (178 - XX) / 4 


2160 FOR B - TO 31: FOR A - 
TO 3:M(A,B) - B - 2 * FN M4 ( 
B) - 2 + 8 * (B < 4 OB A > 1) + 

(1 + A * 7) * (FN M4(B) - 3) 
+ FN M2{A) : NEXT : X (B) » FN F 
(B) :Z(B) - FN G(B) : NEXT 

As linhas 21 10 a 2160 montam o ma- 
pa dos movimcnios da raposa e dos gan- 
sos na matriz M, armazenam o numero 
dos movimentos possiveis da raposa na 
matriz X e o dos gansos na matriz Z. As 
matrizes sSo formadas pelas funpoes de- 
finidas nas linhas 2110 a 2142. 

A rotina do Spectrum ^ mais curta 
devido a 16gica interna dessa m^quina. 



MAIS UMA VEZ? 



Agora, adicione esta roUna: 



1410 INPUT 'QDER JOGAH DE NOVO 
tS/N) ?";T$ 




que A IntellgAncIa Artificial? 

A lntelig§ncia Artificial (lA), cujos 
conceitos sSo utilizados no jogo A Ra- 
posa B OS Gansos, 6 um campo da In- 
formStica que procura desenvolver m6- 
todos computacionais para imitar o in- 
telecto humano em vinas tarefas, co- 
mo o diagnbstico de doengas, a pros- 
pecQdo mtneral etc. Os jogos estrat^- 
gicos, como o xadrez, tambSm tfim si- 
do alvo de estudos. Aplicam-se a eles 
sobretudo duas t^cnicas de lA; a pro- 
gramagSo heurfstica a a otimtzaifio d$ 
busca. 



1420 IF IS="S" 
GOTO 2700 
1430 IF I$<>"N' 
N GOTO 1410 
1440 STOP 



OR IS-"s" THEN 



AND JS<>"n" THE 



1410 PRINT e390."QlIER BECOMECAR 

(S/N) ?' 
1420 K$-INKEyS:IF KS-"S- GOSUB 
4040:CLS:GOTO 2700 
1430 IF KS<>"N" THEN 1420 
1440 CLS:END 



1 


■■^^■■■^^^^^^H 


fm 


^ 


^B^^^^^Hn^fT^^^^^^^^^H 


1410 LOCATE 5,20:PRINT"QUER HEC 




^H^^^^^^^K ^^^^^^^^^^^^H 


OMEgAR? (S/N)" . 




^^^*^^^^^^^k J4^^^^^^^^^^^H 


1420 KS=TNKEYS:TF KS="S" THEN R 




^Kl ^^^^^^VMV^^^^^^^^^^^H 


UN 




^^^- ^^Vl^MI^^^^^^^^^^^H 


14 30 IF KS<>"N" THEN 1420 


^^— 


^^^^ ^^^^^SSH^wS^^^^^^^^^^^^^I 


1440 CLS:END 


^ 

M 


^^^^-T^H^^^I 


a][S] 


^ 


^^^~ ^. -r^-CS^^^ ^^^^-^i^-'-^^^^^^^^^^^^^^^^^^^^^B 


14.10 FOR Z = 1 TO liOOO: NEXT ■ 


'1 

I 


^_ __^V^^"-^^fl^^ ^^^^^^^^^^1 


TEXT ■ HOME : PRINT "JOGA OIJTH 
A VEZ? (S/N) ": 


■1 


k_^^_^^^^^"^^^^^--^ ^^^H 


]420 GET KS: IF KS < > "K" AN 
D KS < > "N" THEN 1420 
1430 IF KS = "S" THEN RUN 


1 

1 




1440 HOME ! END 

Essas linhas entrarao em cena quan- 
do OS gansos conseguirem encurralar a 
raposa ou quando a raposa conseguir 
atingir o lado oposto do tabuieiro, 

Nao tente nesta fase e.xecutar o pro- 
grama, pois ainda falta adicionar varias 
partes vitais. Com as rotinas do proxi- 
mo artigo voce podera, t'inalmeme, co- 
rn e^ar a jogar. ^ 


3 
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COMO UTIUZAR 
UM DISQUETE 



emprego de um acionador de disquetes 
em seu microcomputador pode envolver 
algumas complicapoes. Este artigo 
mostra como evitar erros comuns e como 
fazer o melhor uso desse periferico. 



Como vimos no artigo da pdgina 876, 
o disco magn^tico 6 a melhor alternati- 
va para quern deseja um armazenamen- 
to mais rapido e confiavel do que o pro- 
porcionado pela fita cassete.. Entretan- 
to, ao contririo do que ocorre com o 
gravador de fita, pode ser complicado 
fazer funcionar a combina9&o compu- 
tador-disquete. Alem disso, o usuario 
precisa aprender uma s^rie de novos co- 
mandos para controiar o disco. 

Este artigo explica como conectar e 
usar OS acionadores de disquetes dispo- 
ni'veis para os diversos tipos de micro- 
computador existentes no Brasil. As li- 
nhas cobertas no artigo sao: TRS-80, 
TRS-Color, Apple II, TK-2000 e MSX. 
Uma breve mengao ^ feita aos micros 
compati'veis com a linha Spectrum 
(TK-90X), que disp6e de unidades acio- 
nadoras apenas no Exterior. 

A primeira coisa que voce deve fazer 
ao receber sua unidade de disquetes e 
checar se ela foi protegida para trans- 
pone. Em geral, um peda?o de cartoli- 
na do tamanho de um disquete e inseri- 
do na unidade, a fim de proteger a ca- 
be9a de leitura e grava^io. Retire esse 
protetor somente depois de colocar o 
acionador no local em que ser^ utiliza- 
do. Guarde-o, por6m, para que, quan- 
do se fizer necessArio, possa mudar o 
computador de iugar. 



:0M0 CONECTAR 



Conectar a unidade acionadora de 
disquetes ao micro pode ser ficil ou 
complicado, dependendo do modelo. 

D 

Os microcomputadores compativeis 
com a linha TRS-Color utilizam unida- 
des acionadoras de disquetes de 5 1/4 
polegadas (minidisquetes), de face sim- 
ples e densidade dupla. Encontram-se 
no mercado gabinetes de um ou de dois 
acionadores (como os do CP-400). 

A conexSo € muJto simples: o cabo 
de liga?ao, do tipo piano, tern na ponta 
um conector que deve ser inserido na 
porta de cartuchos do micro. 

O software operacional de utilizai^ao 



jd esti gravado em mem6ria ROM, na 
pr6pria unidade de disco. Dessa manei- 
ra, torna-se instantaneamente disponi- 
vel tao logo se liga o computador, nao 
sendo necessario carregi-lo de um dis- 
quete. O cabo de forga da unidade acio- 
nadora deve ser iigado separadamenie 
em uma tomada. 

a 

Os microcomputadores compativeis 
com a linha TRS-80 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples 
ou dupla e densidade dupla. i possivel 
concectar ate quatro unidades por mi- 
cro, Alguns modelos de computador 
comportam dois acionadores no gabine- 
te principal e mais dois em caixas sepa- 
radas. Outras marcas aceitam apenas 
unidades externas. 

Em geral, os acionadores }& vgm ins- 
talados nos micros que os aceitam no ga- 
binete principal, quando se compra o 
modelo com disquetes. Se vocg possui 
um computador desse tipo e pretende 
adicionar um ou dois acionadores, re- 
comendamos que nSo o fa?a soztnho; 
pe?a auxilio ao revendedor, pois a ins- 
talafSo i razoavelmente complexa e re- 
quer a abertura do gabinete. 

Nos computadores em que os aciona- 
dores sSo ligados externamente, a cone- 
xlio d mutto simples: o cabo de liga^So, 
do tipo piano, tern na ponta um conec- 
tor que deve ser inserido na porta de ex- 
pansSo de discos do micro. Para ligar 
mais de uma unidade, deve-se utilizar 
um cabo prdprio, com varies conccto- 
res intercalados {daysy chaining). Nio 
sao necessArios cabos de forga separa- 
dos para as unidades acionadoras, pois 
a alimentaijao ocorre por intermddio do 
cabo de conexao. 



O] 



Os microcomputadores que sao com- 
pativeis com a linha Apple II utilizam 
unidades acionadoras de disquetes de 5 
1/4 poiegadas (minidisquetes), de face 
simples e densidade dupla, A placa de 
controle (interface) deve ser adquirida 



separadamente, e podem ser conectadas 
a ela at^ duas unidades acionadoras. O 
numero de placas de controle que cabem 
no micro depende da marca, mas, de um 
modo geral, empregam-se ate tres pla- 
cas. Os acionadores costumam alojar- 
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COMO CONECTAR UMA 



UNIDADE DE DISQUETES 
CADEIA DE„C.ONEXAg 



CUIDADOS FUNDAMENTAIS 
FORMATACAQ DE DISCOS 



ARQUIVOS E SEUS NOMES 
ATUALIZACAO DO CATALOGO 



SISTEMA OPERACIONAL 

PRINCIPAIS C OMANDOS 

DE SOFTWARE 



se individualmente em caixas externas. 
A conexao nao e muito simples, po- 
rem com alguns cuidados, voce mesmo 
pode faze-ia. Primeiro, desligue o mi- 
cro da tomada e abra a tampa supexior 
do console (UCP). Localize um conec- 



10 r interne vazio para colocar a placa de 
controle — utilizam-se, normalmente, 
OS conectores 6 e/ou 5 para isso. O ca- 
bo de ligapao da unidade, do tipo pia- 
no, tern na ponta um conector femea 
que deve ser inserido no macho corres- 




pondente, na placa de controle. Nao sao 
necessarios cabos de forga separados pa- 
ra as unidades acionadoras, pois a ali- 
mentagao ocorre por intermedio do ca- 
bo de conexao. 



E] 



O microcompulador TK-2000 pode 
usar apenas um acionador de disquetes, 
com discos de 5 1/4 polegadas (minidis- 
quetes), de face simples e densidade du- 
pla. O acionador e ligado ao console 
atraves de uma interface externa. Esta 
e adquirida k parte e deve ser inserida 
na porta de expansao do equtpamcnto, 
Desligue o micro da tomada para pro- 
ceder a conexao. 

O cabo de forga da interface e do 
acionador deve ser ligado separadamen- 
te na tomada, pois a UCP nao tem po- 
tencia suficiente para ambos. 

Os microcomputadores compati'veis 
com a linha MSX 1 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples e 
densidade dupla, ou microdisquetes de 
3,5 polegadas, de face dupla (encontra- 
dos apenas no Exterior). Existem gabi- 
netes de um ou de dois acionadores dis- 
poniveis no mercado. 

A conexao e muito simples: o cabo 
de liga^ao tem a interface e um conec- 
tor na ponta. Este deve ser inserido nu- 
ma das portas de cartuchos do micro- 
compulador. O software operacional de 
utiltzafao ja esti gravado em memoria 
ROM, na propria unidade de disco. As- 
sim, torna-se instantaneamente disponi- 
vel t.5o logo se liga o computador, nao 
sendo necessdrio carrega-lo de um dis- 
quete. A unidade acionadora nao requer 
cabo de for^a separado. 



Nao existem no mercado nacionai 
unidades de disquete para os micros 
compati'veis com a linha Sinclair ZX 
Spectrum. Nos Estados Unidos e na Eu- ji 90 



ropa, podem ser adquiridos facilmente 

dois tipos de sistemas de armazenamen- 
to magn^tico auxiliar para esses micros: 
OS acionadores de disquetes de 5 1/4 po- 
legadas, de face simples e densidade sim- 
ples (em gabinetes com at^ dois aciona- 
dores, e descanso para o teciado), e os 
acionadores de fitas sem Fim {tape loop). 
Estes, per suas caracteristicas, aproxi- 
mam-se dos disquetes em modo de ope- 
ra^ao, e custam bem mais barato. Os 
modeios mais conhecidos sao o Micro- 
drive, da propria Sinclair, e o Wafadri- 
ve. Podem ser ligados ate oito aciona- 
dores em paralelo. 

Para ligar o Microdrive, e necessirio 
ter tambem uma Interface 1 da Sincla- 
ri, ou similar, que deve ser inserida na 
porta de expansao do teclado. Para 
faze-lo, desligue a computador. O ca- 
bo de conexao, do tipo piano, tern duas 
pontas: uma para insergao na Interface 
e outra para o Microdrive. Cada Micro- 
drive, por sua vez, tern um conector f^- 
mea que possibilita a ligagao de virios 
acionadores. Nao sac necess^ios cabos 
de for?a separados para os acionadores, 
pois OS mesmos sao alimentados pelo 
computador. 



FORMATACAO 



Antes de usar o disquete para arma- 
zenar informa9ao, deve-se prepara-Io 
por meio de um procedimento de soft- 
ware, ehamado de formatacao ou inicia- 
liza^ao. O programa de formatagao sim- 
plesmente impoe um padrao de trilhas 
e setores no disco virgem, definindo (isto 
e, gravando certos apontadores e listas) 
modo como a informafao sera arma- 
zenada no disco. 

Os disquetes sao inicialmente dividi- 
dos em trilhas conceniricas, por sua vez 
"fatiadas" em setores de igual numero 
de bytes. O controlador de disquetes re- 
conhece precisamente as marcas feitas 
pelo programa formatador. Esse proce- 
dimento e ehamado de setoreamento por 
programa {sofl -sectoring). 

O processo de formatafao varia con- 
forme a marca do computador e o sis- 
tema operacional empregado. Eis aqui 
OS comandos que voce pode utilizar pa- 
ra formatar um disquete: 

Q 

Coloque o disquete com o sistema 
operacional na unidade acicnadora n? 0. 
Existem duas opcoes para a formata^ao 
de um disquete virgem nos micros des- 
la linha: somente formatagao — que 
produz um disquete sem o sistema ope- 



racional — e c6pia total — que copia tu- 
do que o disco-mestre tem, inclusive 
o sistema operacional, A operagao di- 
fere conforme o niimero de acionado- 
res de disquetes do computador. 
Para formatar, apenas, digite: 

FORMAT 

O programa fari, entao, uma sdrie de 
perguntas, Primeiro, pedira que voce in- 
dique a unidade em que esta o disque- 
te. Se voce tem apenas um acionador, 
indique drive e retire o disquete com 
o sistema operacional do mesmo, colo- 
cando o disco virgem em sen lugar. Se 
voce tem dois ou mais acionadores, nao 
e precise fazer isso: basta inserir o dis- 
quete virgem em outra unidade e indi- 
car o seu mimero ao programa {por 
exemplo, drive J). 

Ao executar a formata^ao, o progra- 
ma indicar^ o ruimero da trilha que es- 
ti. formatando. Ao final, retire o disque- 
te formatado da unidade. 

No caso de formatagao com c6pia, 
use o comando: 

BACKUP 

Entre as informa(;6es solicitadas, o 
programa pede ao usuario que indique 
se deseja reformatar o disquete, caso ele 
ji esteja previamente formatado. Se a 
resposta for sim, o programa funciona- 
rd como foi explicado antcriormente e, 
depois, fara a c6pia do di-iiquete-mestre. 
Se voce tem apenas um acionador, pre- 
cisara realizar varias vezes a opera^ao 
de retirar disquete de c6pia e inserir dis- 
quete-mestre, Fique atento para nao tro- 
car OS discos. Conv^m proteger o dis- 
quete-mestre colocando uma etiqueta 
adesiva sobre o oriftcio quadrado da 
margem do envelope. Serd precise, ain- 
da, saber a senha de ace.sso do disquete- 
mestre. 



a 

Coloque o disquete virgem na unida- 
de acionadora, feche a porta da mesma 
e digit e pelo teclado: 

DSKINIT 



[illSI 



Coloque o disquete com o sistema 
operacional na unidade acionadora 1. 
Proceda a inicializapao, carregando o 
sistema operacional. 

Tire o disquete do sistema e coloque 
o disquete virgem na unidade acionado- 
ra. Feche a porta da mesma e digite pe- 
lo teclado o comando NEW. Todos os 
disquetes com o sistema operacional 



precisam ter um programa em BASIC 
gravado. Este serd carregado automati- 
camente loda vez que o computador for 
ligado. Escolha e digite o programa que 
desejar: ele pode center desde uma linha 
de sauda^ao at^ varios comandos que 
executem alguma tarefa especifica, Em 
seguida, digite o comando: 

INIT NOME 

NOME refere-se ao programa inicial 
de carregamento, que normalmente re- 
cebe a designafao de HELLO ou ALO. 
A formata?a6 sera, entao, realizada. 

Coloque o disquete com o sistema 
operacional na unidade acionadora A. 
A operagao de formatafao varia confor- 
me o numero de acionadores de disque- 
te do computador. 

Para formatar, apenas, digite: 

FORMAT A: 

se o seu computador tem apenas um 
acionador, ou: 

FORMAT B: 

se o seu computador tem dois acio- 
nadores. 

O programa dara. entao, algumas in- 
forma96es. Se voce tem apenas um acio- 
nador, indique drive A e retire o disque- 
te com o sistema operacional do mesmo, 
colocando o disco virgem em seu lugar. 
Se voce tem dois ou mais acionadores, 
nao e precise fazer isso: basta inserir o 
disquete virgem em outra unidade c in- 
dicar o seu numero ao programa (per 
exemplo, drive B). 

Ao final, retire o disquete formata- 
do da unidade. 



Para a formataijao de urn Microdri- 
ve, use o comando; 

FORMAT "M";1;"N0ME" 



NOMES DE ARQUIVOS 



Tudo o que e armazenado em disque- 
te — seja um programa, seja um con- 
junto de dados — precisa ter um nome. 
O sistema operacional de disco trata de 
forma igual dados e programas: ambos 
saechamadosdearg«/vo5. numero de 
caracteres p«rmitidos no neme de um ar- 
quivo de disco varia segundo o modelo 
do computador. A maioria deles aceita 
nomes formados por oito caracteres, no 
mdximo. Os micros da linha Apple, po- 
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r^m, aceitam ate trinta caracteres, e o 
Microdrive para o Spectrum, ate dez, O 
Apple e, tamb^tn, o linico micro que 
permite a inclusao de espa<;os em bran- 
co e de outros caracteres especiais den- 
tro de um nome de arquivo. Pode-se 
perfeitamente chamar um arquivo de 
DADOS DE ENTRADA, porexemplo. 
Os computadores das linhas TRS-80, 
TRS-Coior e MSX, ao contrario, exigem 
que o nome do arquivo nao tenha espa- 
COs em branco e que comece com um ca- 
ractere alfabetico. 

Nesses computadores, quando se usa 
o comando SAVE para armazenar algu- 
ma coisa em disco, a m^quina automa- 
ticamente adiciona um sufixo ao nome 
que foi fornecido. Esse sufixo pode ser 
BAS, que significa que um programa em 
BASIC foi gravado, BAK, que indica 
que o arquivo e uma copla (BAcK-up) 
de outro arquivo no mesmo disco, ou 
DAT, que identifica um arquivo de da- 
dos, dtstinguindo-o de um programa. 
Conforme a linguagem, outros sufixos 
podem ser utilizados, mas devem ter 
sempre um maximo dc tres letras. Nos 
micros das linhas TRS-80 e TRS-Color, 
sao separados do nome principal por 
uma barra {PROG/BAS, por exemplo); 
nos da linha MSX por um ponto {PROG. 
BAS, por exempto)- 

Nao existem sufixos nos nomes de ar- 
quivos para as linhas Apple e TK-2000. 

Os nomes de arquivos sao essenciais 
para a operagao de um sistema que uti- 
liza discos, pois cada um destes possui 
um catdlogo, ou Usta com todos os no- 
mes de arquivos gravados. Tal catdlo- 
go (catalog ou directory) t atualizado 
sempre que um novo arquivo ^ criado, 
gravado ou apagado. Voltaremos a es- 
se assunto mais adiante. 




COMO LIGAR E DESUGAR 
ACIONAOOR 

Ao ligar ou desligar o acionador, ve- 
rifique se nao M algum disco em seu 
interior. Como os disquetes sao muito 
sensfveis, um setor do cat^logo inter- 
no pode se apagar quando o acionador 
for ligado ou desligado. 

Esse acidente ocorfe com frequfin- 
cia nos modelos cujo catdtogo se situa 
nas trilhas mais externas, onde usual- 
mente a cabe?a flea em repouso. Re- 
cuperar a informagao contida no res- 
tante do disco seri, entao, imposslvei, 
pois o software operacional nao teri 
meios de locallzd-la. 



COMO USAR DISQUETE 



O conhecimento dos comandos de 
software e fundamental para o uso cor- 
reto de unidades de disquetes, assim co- 
mo de outros perif^ricos, entre os quais 
joysticks, canetas 6pticas e impressoras. 
Esses comandos podem fazer parte do 
sistema operacional, das linguagens de 
programa^ao (como o BASIC) ou, ain- 
da, de ambos. 

Como a sintaxe e o uso dos coman- 
dos variam conforme o micro, a lingua- 
gem e o sistema operacional, trataremos 
de cada maquina separadaipente. 
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Os comandos utilizados pelos micros 
compativeis com o TRS-Color para gra- 
var e ler programas sao o SAVE e o LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneirade usa-Ios tamb^m 
e bastante simples; se voce quiser, por 
exemplo, gravar em disco um programa 
que estd em memoria, digite o comando 
SAVE "NOME", Para carregar, digite 
LOAD "NOME". Como o TRS-Color 
nao tem sistema operacional separado do 
BASIC, trabalhar com uma unidade de 
disquetes ^ mais f^cil. 

Para carregar um programa em BA- 
SIC armazenado em disco, nao precisa 
digitar o sufixo: basta indicar o nome 
dentro de um comando LOAD. 

Quando se liga o computador pela 
primeira vez, a oppao VERIFY e acio- 
nada, ou seja, tudo o que for gravado 
em disco ser^ automaticamente verifica- 
do pelo computador. Para desativar es- 
sa opgao, digite VERIFY OFF. Para 
reativd-la, digite VERIFY ON. 

A lista dos arquivos gravados em um 
disquele sera obfida com o comando: 

DIH 

que e uma abreviacao de DIRectory. Es- 
se comando e muito litil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas caracteristicas etc. DIR in- 
dica ainda quantos bytes estao sobran- 
do no disquete. 

Existe tambdm um comando que pos- 
sibilita a troca do nome de um arquivo 
ja armazenado em disco. Se voce digi- 
tar, por exemplo; 

RENAME "UELHO" TO "NOVO' 

o comando substituird o nome do arqui- 
vo chamado VELHO por NOVO. 

Para apagar arquivos do disco, utilize 
o comando KILL. Por exemplo, para 



um programa chamado INUTIL, digite: 

KILL "INUTIL" 

Q 

Os comandos utilizados pelos micros 
compativeis com o TRS-80 para gravar 
e ler programas sao o SAVE e o LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usd-los tambem 
e simples: se voce quiser, por exemplo, 
gravar em disco um programa que esti 
em memoria, digite SAVE "NOME". 
Para carregar. digite LOAD "NOME", 
O TRS-80 tem um sistema operacional 
separado do BASIC, mas os comandos 
de disco mais importantes tambem es- 
tao disponiveis na linguagem. 

Para carregar um programa em BA- 
SIC armazenado em disco, nSo e neces- 
sirio digitar o sufixo; basta indicar o no- 
me dentro de um comando LOAD. 

Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 

DIEl 

que e uma abreviagao de DIRectory. Es- 
se comando € muito util, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas caracteristicas etc. DIR in- 
dica ainda quantos bytes estao sobran- 
do no disquete. O comando equivalen- 
te em BASIC e o FILES, de efeito se- 
melhante, mas nao igual ao do DIR. 

Existe tambem um comando que pos- 
sibilita a troca do nome de um arquivo 
ja armazenado em disco. Digite, por 
exemplo, em BASIC: 

RENAME "VELHO" TO "NOUO" 

e o comando substituird o nome do ar- 
quivo chamado VELHO por NOVO. 
Para apagar arquivos do disco, utili- 
ze comando KILL. Suponhamos que 
voce queira apagar um programa cha- 
mado INUTIL. Digite, em BASIC: 

KILL "INUTIL/BAS- 
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Os comandos empregados pelos mi- 
cros compativeis com as linhas Apple e 
TK-2OO0 para gravar e ler programas 
slo o SAVE e o LOAD. A maneira de 
usa-los 6 muito simples: se voce quiser, 
por exemplo, gravar em disco um pro- 
grama que estd em mem6ria, digite SA- 
VE NOME. Para carregar, digite 
LOAD NOME, O Apple e o TK-2000 
nao tem um sistema operacional sepa- 
rado do BASIC, sendo: f4ceis de usar. 
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Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 

CATALOG 

Esse comando e muito util, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos etc. 

Existe tambem um comando que pos- 
sibilita a troca do nome de um arquivo 
ja armazenado em disco. Digite, por 
exempio, em BASICr 

RENAME UELHO, NOUO 

e o comando substituira o nome do ar- 
quivo chamado VELHO por NOVO. 
Para apagar arquivos do disco, utili- 
ze o comando DELETE. Suponhamos 
que voce queira apagar um programa 
chamado INUTIL. Digite, em BASIC: 

DELETE INUTIL 

Outro comando litil 6 o VERIFY, 
■que informa se determinado arquivo foi 
danificado ou escrito incorretamente. 
Merecem ainda menijao o comando 
LOCK e irNLOCK, que permitem 
proieger ou retirar a prote<;ao de arqui- 
vos contra apagamento acidental. 

m 

Os comandos utilizados pelos micros 
da linha MSX para gravar e ler progra- 
mas sao o SAVE e o LOAD — os mes- 
mos, portamo, que se empregam com 
fita cassete. O modo de usa-los i sim- 
ples: se voce quiser, por exempio, gra- 
var em disco um programa que est^ em 
memdria, digiie SAVE "A:NOME", 
para registrar um arquivo chamado NO- 
ME, na unidade de disquete A. Para 
carregar um programa, digite LOAD 
"AiNOME". O MSX pode acomodar 
ate dois disquetes, chamados de A e B. 

Quando quiser carregar um progra- 
ma em BASIC armazenado em disco, 
nao digite o sufixo; basta indicar o 
nome deniro de um comando LOAD. 

Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite, em BASIC: 

FILES 

Esse comando d muito util, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos, quais as suas caracteristicas etc. 

Existe tambem um comando que pos- 
sibiiita a troca do nome de um arquivo 
jA armazenado em disco. Digite, por 
exempio, em BASIC: 

NAME "A: VELHO" AS "A: NOVO" 



e comando substituir^ o nome do ar- 
quivo chamado VELHO por NOVO 
(ambos no disquete A). 

Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
voce queira apagar um programa cha- 
mado INUTIL. Digite, em BASIC: 

KILL "A; INUTIL. BAS" 



Os comandos SAVE e LOAD utili- 
zados para a transmissao de dados en- 
tre computador e fita cassete foram mo- 
dificados para permitir a gravagao de 
leitura de programas no Microdrive: 

LOAD *"m";l;"nome" 
SAVE *-m'' ;1 ; "nome" 

O asterisco indica que o comando Taz 
parte do BASIC armazenado na ROM 
da Interface 1 . O m e o 1 informam que 
a operacao se daii no Microdrive n? 1 . 
Seguindo o mesmo formaio, ha um co- 
mando que verifica gravagoes depois de 
feitas (VERIFY) e outro que combina 
dois programas na memoria. 

O comando CAT — abreviatura de 
CATdlogo — d utilizado para exibir na 
tela a lista de arquivos armazenados em 
um cartucho de Microdrive. 

Para apagar um arquivo do Micro- 
drive, emprega-se o comando ERASE, 
que tern o mesmo formato que o SAVE 
e o LOAD, nao exigindo, porem, o as- 
terisco. 
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CUIDADOS COM A UNIDADE DE DISCOS 



Ao coniririo da UCP, do teclado e 
do video, que sao bastante resistentes e 
praticamente dispensam quaisquer repa- 
ros, as unidades de disco constituem o 
"calcanhar-de-Aquiies"dos sistemas ba- 
seados em microcomputadores. A con- 
fiabilidade de opera?ao dessas unidades 
e muitas vezes maior do que a dos gra- 
vadores cassete, por exempio. Por^m, 
por serem dispositivos mecinicos rela- 
tivamente compiexos e muito delicados, 
exigem alguns cuidados por parte do 
usuario, se ele quiser operar por muitas 
horas. sem problemas. 

Devido k sua fragilidade mecanica, as 
unidades de disquete sSo extremamente 
sensiveis a qualquer choque. Mesmq que 
nada se quebre depois de uma batida 
mais forte, pode ocorrer um descalibra- 
mento da cabe?a. Portanto, mantenha 
a unidade em um ponto seguro da me- 




Quais sSo as vantagens da utiltza- 
pao de cartucbos de programas. em 
vez de fitas e discos? Posso gravar 
maus prdprios programas em um 
cartucho? 

A maior vantagem dos programas 
em cartuchos 4 que eles estao imedia- 
tamente disponiveis para uso, nao sen- 
do preclso carregd-los. Al§m disso, sao 
muito mais segufos e resistentes con- 
tra a perda de programas. 

Os cartuchos (como os existentes 
para micros das linhas TRS-Coior e 
MSX) sao mem6rias ROM removfveis, 
que nao podem ser alteradas de nenhu- 
ma maneira - em outras palavras, 
constituem um meio permanente de ar- 
rrtazenamento. Voc§ nao pode, portan- 
to, gravar seus programas neles. Mas 
h^ a alternativa de gravapao permanen- 
te de programas em um tipo de mem6- 
rta chamado EPROM \Eraseabte Pro- 
grammable Read Only Memory), o que 
requer um perif6rtco especial, o progra- 
mador de EPROM, que pode ser conec- 
tado a muitos micros. O custo da mon- 
tagem de um sistema desse tipo 6, po- 
r6m, muito elevado. 



sa. Se precisar iransporta-la, fa^a-o com 
todo cuidado e dentro da embalagem 
acojchoada original. 

E imponante, tambem, levar em con- 
ta que a cabe^a da unidade de disquete 
trabaiha em atrito direto contra o meio 
magnetico. Qualquer poeira, ou detri- 
to, por menor que seja, que tiver aces- 
so a ela, diminuira a vida da mesma e 
provocara defeitos. 

A temperatura ambiente deve ser 
mantida em niveis razoaveis durante a 
opera^ao, sobretudo porque, normal- 
mente, a unidade nao possui ventila^ao. 

Quanto aos cuidados gerais, lembre- 
se de que o cabo de conexao deve estar 
bem inserido, sem dobras e livres de ten- 
soes mecanicas. Limpe periodicamente 
OS contatos dos conectores. Preste mui- 
ta aten^ao ao inserir o disquete, para 
nao faze4o com a orienta^ao crrada, o 
que pode danificar irremediavelmente a 
cabeca da unidade. 

Evite usar disquetes "flippy", pois 
soltam fragraentos. Nao use produtos de 
limpeza internamente: para isso, existem 
disquetes especiais de limpeza, que de- 
vem ser rodados a cada cinqiienta a cem 
horas de uso. Kgj 




RECURSOS OCULTOS DO TRS-8Q 

A MEMORIA DO VIDEO 

USO DOS COMANDOS 

PEEK e POKE 

COMO COPIAR A TELA 



A memdria ROM do TRS-80 guarda 
recursos que, em geral, os usu^rios 
desconhecem. Sabendo quais sao eles, 
voce podera utilizar incrtveis 
truques de programacao em BASIC. 

Os microcomputadores da linha 
TRS-80 sao considerados tecnicamenle 
obsoletos por muitas pessoas. Entretan- 
to, OS usuarios desse popular modelo, 
que ja tiveram a oportunidade de explo- 
rar mais a fundo seus diversos recursos, 
podem tcstemunhar o quanto eles sao 
poderosos — algumas vezes, mais ate do 
que OS disponiveis em certos microcom- 
putadores de tipo profissional, maiores 
e bem mais caros. 

Na serie de artigos que aqui inicia- 
mos, voce vera como explorar alguns 
dos recursos menos conhecidos do 
TRS-80 e dc seus compativeis nacionais 
(como o CP-300 e o CP-500, da Prolo- 
gica) c internacionais. Daremos exem- 
pios de manipula(;;ao de lela, teclado. 
som e de varios aspectos do BASIC pou- 
co esclarecidos no Manual de Pro- 
gramaijao. 



TflUQUES DE VIDEO 



O video do TRS-80 possui uma pro- 
priedade muito interessanie: ele e ma- 
peado em memoria. Isso significa que 
uma parte da memoria RAM e dedica- 
da exclusivamenie ao video, e que qual- 
quer coisa nela armazenada tera, auto- 
maticamente, um efeito sobre o video. 
sobretudo se se tratar de um caractere 
visivel (ASCII ou grafico). 

A memdria de video come^a na lo- 
caipao 15360 e ocupa 1024 bytes, ou se- 
ja, um para cada posii;ao na tela. Hd, 
portanto, uma equivalencia entre o nii- 
tuero indicado em um PRINT® e a me- 
moria absoluta referente h posi^ao na te- 
la, que e a soma de 1 5360 a esse numero, 
Por exempio, o comando 

PRINT ^ 125. "A": 

colocara o c6digo 65 (ASCII para a letra 
I A maiiiscula) na loca<;ao 15360+ 125, ou 
15485. 



PEEK E POKE 



Como a memoria de video lem uma 
correspoEidencia byte a byte com a tela, 
podemos escrever utilizando o coman- 
do POKE. A linha 

POKE 15485.65 

tem exatamente o mesmo efeito que o 

PRINT® mostrado acima. 

Se voce nao quiser recorrer a tabela 
de codigos ASCII sempre que for escre- 
ver na tela com o POKE, use esia for- 
ma ahernativa: 

POKE 15485, ASC ("A") 

Em alguns casos, o emprego do PO- 
KE e mais vantajoso que o do PRINT®. 
Para colocar caracteres na tela sem pro- 
vocar o movimemo do cursor, por exem- 
pio, o POKE e o comando indicado. 
Alem disso, em certas situa(j6es ele po- 
de ser mais rapido do que o PRINT®. 
Finalmente, o comando POKE permiie 
a impressao de um caractere no canto in- 
ferior direito da tela (posigao 1023), sem 
provocar o deslocamenio de toda a tela 
para cima {scrolling). 

Quando se traia, porem, de imprimir 
uma cadeia de caracteres (armazenados 
em uma variavei literal, por exempio), 
o USO do POKE fica em nitida inferio- 
ridade em relagao ao do PRINT, 

Para examinar o conteiido de uma lo- 
caijao da tela, utiliza-se tambem a fun- 
gao PEEK, o que pode ser muito util em 
uma grande variedade de programas, 
principalmente de jogos. O programa 
abaixo, por exempio, le o que esta es- 
crilo na linha de cima da tela e, auto- 
maticamentc, transforma em minuscu- 
las todas as letras. 

10 CLS 

20 INPUT "ENTRE MENSAGEM "tlS 

30 CLS: PRINT 1$ 

40 FOR 1=15360 TO 15423 

50 J»^PEE:K(I> :IF J>64 AND J<91 

THEN POKE I.J+32 

60 NEXT I : PRINT 

O mesmo poderia ser feito tomando- 
se, um a um, os caracteres de 1$, trans- 
formando-os em uma outra cadeia. Po- 
rem, o programa ficaria mais complica- 
do e menos rapido. Note que a iransfor- 



ma^ao de tipos maiiisculos para tipos 
mimisculos e bem facil: basta, para is- 
so, somar 32 ao codigo ASCII do carac- 
tere maiiisculo. 

Um programa de jogo pode nos for- 
necer um exempio menos dbvio de apli- 
ca^ao do PEEK. Suponhamos que seja 
necess^rio testar se uma bala de canhao 
(um caractere grafico) colidiu com algu- 
ma parte da estrutura complexa de ura 
casielo. Sera bem mais conveniente uti- 
lizar um PEEK a cada posi^ao de des- 
locamento da bala, uma vez que a fun- 
gao POINT nao tera um desempenho 
satisfattSrio nesse caso. 



UMA COPm DA TELA 



Muitos programas exigem que se fa- 
fa uma copia rapida da tela, em algu- 
ma parte da memoria que nao seja a de 
video. Es.se procedimento e empregado, 
por exempio, nos programas que criam 
"janelas" de tela ou superpoem varias 
tnformagoes sobre o video, Neste ulti- 
mo caso, poderemos predsar de diver- 
sas cbpias da tela, uma de cada "cama- 
da" superposta de informacoes, para 
que se torne possivel a recupera?ao das 
telas originals posteriormente. 

Uma maneira f^cil, mas nao rapida, 
de copiar uma tela consiste em usar os 
comandos POKE e PEEK dentro de um 
lago que percorre cada memoria de vi- 
deo. Para isso, e necessario reservar a 
parte da memdria RAM que contera a 
copia. A reserva e feita logo que se acio- 
na o interprelador BASIC, aparecendo 
na tela a pergunta MEM?, MEMORY 
SIZE? ou outra, conforme a versao do 
computador utilizado, 

O programa abaixo usa a memoria 
RAM acima de 30000: 

100 IM-30001 

110 FOR 1=15360 TO 16384 
120 POKE IM.PEEKCI) 
130 IM=rM+l:NEXT 

Para trazer a copia de volta para o 
video, basta trocar os enderegos do 
PEEK e do POKE: 

100 IM=30001 

110 FOR 1-15360 TO 16384 
120 POKE 1,PEEK(IM) 
13D IM=IM+1:NEXT 
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AMPLIACA 



CARACTERES 
DA ROM 



ALTURA DAS LETRAS 



MONTAGEM DE LETRAS 



COM BLOCQS GRAFICQS 




Se voc§ quiser escrever uma manchete 
ou urn titulo em letras garrafais, 
precisar^ criar tipos especiais. 
Veja aqui dois diferentes m^todos para 
a obtencao de caracteres amptiados. 



O conjunto de caracteres disponiveis 
alravfe do teclado deixa muito a dese- 
jar — que e compreensivel se consi- 
derarmos que ele foi criado de maneira 
a economizar espago de memoria. As- 
sim, quando queremos escrever com le- 
tras maiores, destacando a mensagem, 
precisamos criar nossos pr6prios carac- 
teres ampliados. 

Existem muitas formas de utilizar os 
recursos grdficos de seu microcomputa- 
dor para obter novos conjuntos de ca- 
racteres. A escoiha de uma delas depen- 
dera do tipo de aplicagao que voce tern 
em vista. Para amplia?6es, dispomos de 
duas alternativas basicas: desenhar as le- 
tras linha por linha no modo grafico de 
alta resoiupao ou montar as leiras com 
blocos graficos. 

Ambos OS metodos podem ser usados 
dentro de um programa especifico, des- 
tinado a escrever determinada frase — 
mas este e um caminho pouco economi- 
co, ja que cada mensagem exige uma no- 
va rotina. A melhor solucao, sobretu- 
do quando pretendemos utilizar man- 
chetes com freqiiencia, consiste em criar 
um programa que se encarregue de ge- 
rar OS caracteres necessirios. Uma vez 
Feito isso, poderemos simplesmente in- 
formar ao computador o texto que de- 
verd ser impresso, deixando a execucao 
do servJQO por conta do programa. Nos- 
so trabalho se resumira, assim, a grava- 
gao do gerador de letras e k sua coloca- 
(;ao nos programas que precisem de ca- 
racteres maiores no video. 

Este e o primeiro de dois artigos em 
que sao explicadas as diversas maneiras 
de escrever manchetes e cartazes. Aqui, 
irataremos em deialhe dos dois metodos 
ja mencionados. O primeiro utiliza a ta- 
bela de padroes de caracteres existente 
na mem6ria, aumentando seu formato. 
Como resultado, obtemos tipos seme- 
Ihantes aos caracteres normais, s6 que 
em tamanho maior, disponiveis atraves 
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do teclado, da forma usual. Infelizmen- 
te, esse metodo nao pode ser emprega- 
do pelos usu^rios do Apple e do TRS- 
Color, que nao tSm acesso aos padroes 
de caracteres. 

O segundo melodo usa blocos grafi- 
cos da ROM para construir as letras, 
funcionando em todos os microcompu- 
tadores, menos no Apple, que nao dis- 
poe de blocos graficos da ROM. 

No proximo artigo, examinarenios 
outra maneira de criar letras, que pode 
ser adaptada a todo tipo de aplicacao, 
Veremos, tambem, dc que modo utili- 
zar OS metodos explicados no aperfei- 
coamento de programas. 



AMPLIACAO DOS CARACTERES 



Quando executamos o programa ela- 
borado especialmente para ampliar ca- 
racteres, o computador aguarda a entra- 
da da frase que dever^ escrever. O Spec- 
trum e o MSX, em seguida, colocam na 
tela as letras ampliadas, com o dobro da 
altura original. 

Ate adquirir alguma experiencia e 
perceber como o programa funciona, es- 
creva palavras curtas. Se usar frases 
mais longas, elas serao divididas no fi- 
nal da linha. 

Com base nos bytes que definem os 
padrdes dos caracteres, o programa cria 
OS blocos grdficos que, juntos, forma- 
rao o novo caractere. Para duplicar a al- 
tura de uma letra, por exempio, o com- 
putador substitui cada byte do caracte- 
re por dois outros, repetidos dentro do 
mesmo bloco gr^fico. 



1000 INPUT 'INTRODUZA UM TEXTO" 

, LINE IS: CLS : GOSUB 9000 r GO 

TO 1000 

9000 LET line-0: LET col«-l 

9010 LET y=0 

9020 FOB i-1 TO LEN IS: LET col 

=col+l: IF col-32 THEN LET col 

=■0: LET line"line+2 

9030 LET t$-I$(i) 

9050 FOB x=0 TO 6 STEP 2 

9060 POKE USR "a"+x,PEEK (1.5616 

+ (8* (CODE tS-.lZ))+Y) 

9070 POKE USH 'a'+l+x, PEEK (156 

]6-^(B*<CODE tS-32>)-<-Y) 

9080 LET y-y+1 

9090 NEXT K 

9100 FOa x=l TO 7 STEP 2 

9110 POKE USR "b"+x-],PEEK (156 

16-H8*<CODE tS-.12))+Y) 

9120 POKE USR "b"+x,PEEK (15616 

+ (8* (CODE t5-32) )-l-y) 

9130 LET y=Y+l 

9140 NEXT X 

9150 LET y-0 



9160 PRINT AT line.col iCHBS 144 
;AT line-H,col iCHHS 145 
9180 NEXT 1 
9200 RETURN 

A primeira linha do programa possi- 
bilita a entrada de nosso lexto, 
colocando-o dentro da variavel alfanu- 
merica 1$. Para controlar a posi^ao de 
impressao do texto na tela, ulilizam-se 
duas variaveis. Sens valores iniciais sao 
0, para a coordenada vertical, e - 1 , pa- 
ra a coordenada horizontal. Uma tercel- 
rd variavel, Y, recebe o valor inicial ze- 
ro, antes que o processo de ampliai;ao 
comece. 

A linha 9020 inicia um la^o FOR... 
NEXT que dara um niimero de voltas 
iguai ao comprimento de nossa frase. A 
cada volta, o valor da coordenada ho- 
rizontal (variavel col) aumenta em uma 
unidade. O valor inicial de col era - 1 
justamente para que a impressao do tex- 
to comegasse a partir do canto esquer- 
do da linha, onde col = 0. 

Se chegar a 32 (uma posigao alem da 
extremidade direita da linha), o valor da 
coordenada horizontal voltara a ser 0, 
para que o computador coloque as le- 
tras restantes a partir do lado esquerdo 
da tela. A coordenada vertical e, entao, 
aumentada em duas unidades, tornan- 
do possivel que o texto excedente seja 



escrito na linha seguinte. 

A linha 9030 coloca a letra que deve 
ser ampliada dentro da variavel t$, usan- 
do contador do !ai;o, i (l$ contera, as- 
sim, o i-esimo caractere do texto). Em 
seguida, o computador da inicio a um 
novo lafo, que coloca dois bytes repeti- 
dos dentro de um bloco grafico, quatro 
vezes. 



A CHAVE DC PROCESSO 



As contas feitas para calcular o nii- 
mero a ser colocado dentro do bloco 
constituem a chave de todo o processo 
de ampliagao das letras. 

Analisando a linha 9060, voce pode- 
tA entender os calculos. A primeira me- 
tade e muito simples. Ela coloca um nii- 
mero (cujo calculo e explicado adiante) 
com POKE em um endere^;o x posi?5e5 
alem do primeiro byte do bioco grafico 
(UDG) a. A variavel x, que controla o 
lafo FOR.. .NEXT, aumenta com um 
STEP 2, de forma que o segundo byte 
nao sofre alteraijoes quando o [aqo e 
executado novamente. 

A segunda metade calcula o numero 
que serd colocado pclo POKE. Esse nii- 
mero corresponde a um dos bytes do pa- 
drao do caractere que esta sendo amplia- 




do, obtido da tabela que fica na ROM. 
O endere^o inicial da tabela 6 15616. A 
formula entre parenteses subtrai 32 do 
cbdigo ASCII do caractere e multlplka 
resultado por 8, para identificar a po- 
si^ao do primeiro byte do padrao den- 
tro da tabela. 

O codigo ASCII do caractere preci- 
sa ser subtraido em 32 unidades, antes 
da multjplicatpao por 8, devido ao mo- 
do como Spectrum armazena os pa- 
droes dos caracteres (de fato, nao ha 
nessa parte da membria oito bytes para 
cada um dos 32 primeiros caracteres). 

Depois de calcular a posiQao dos pa- 
droes do caractere dentro da tabeia, o 
computador soma o valor obtido ao en- 
dere?o inicial da tabela, 15616, e adicio- 
na o resultado a y. Lembre-se de que no 
inicio do programa atribuimos a y o va- 
lor zero, Essa varidvel sera utilizada pa- 
ra indicar o byte que esti sendo lido e 
colocado dentro do UDG. Quando seu 
valor e zero, o computador le e coloca 
no UDG primeiro byte do caractere. 

As linhas 9060 e 9070 colocam em 
duas linhas consecutivas do UDG o mes- 
mo byte obtido na tabela de padrSes, 
duplicando a alcura da letra. Depois, 
y i aumentado em uma unidade e o 
processo se repete para o proximo by- 
te do padrao, at^ que o la?o FOR... 



NEXT termine — a esta altura, quatro 
pares de bytes terao sldo colocados no 
UDG a. 

O Spectrum inicia, entao, outro la?o 
FOR. ..NEXT, que procede como o an- 
terior para colocar os quatro liltimos 
bytes do padrao do caractere no UDG 
b, sempre repetindo cada byte duas ve- 
zes. O lago termina na linfia 9140 e o 
programa faz y voltar a valer 0. 

A linha 9160 e a responsavel pela im- 
pressao dos blocos grificos, um acima 
do outro. Ela usa as varidveis line e col 
para identificar a posiijao de impressao 
do caractere ampliado. No programa, o 
comando PRINT "A" foi substituido 
por CHRS 144 para evitar que o leitor 
se confunda — o "A" normal e o "A" 
grdfico pareceriam absolutamente iguais 
na listagem. 

Finalmente, a linha 91 80 conclui o la- 
?o principal do programa, mandando o 
computador ampliar a letra seguinte. Ao 
completar a frase, o computador volta 
k linha lOOO, que possibilita a entrada 
de um novo texto. 



[I][S] 

Embora o Apple nao nos dfe acessc 
aos padrOes bindrios que definem-o for- 



mate de sens caracteres, veremos como 
aplicar a tdcnica de ampliacao utilizan- 
do OS UDG criados por um programa 
do artigo da pdgina 526. 

Na listagem que se segue, voce encon- 
trara apenas as modinca^oes necessdrias 
para ampliar as letras criadas no progra- 
ma mencionado. Sem as linhas DATA 
iniciais, que se encontram listadas na- 
quele artigo, voce nao obiera nenhum 
resultado, Mais ainda, se tentar exe- 
cutar apenas as linhas aqui apresenta- 
das, o computador saira fora de seu con- 
trole e as linhas digitadas acabarao se 
perdendo. 



ESTA MENSAGEM E ' UM T 



11: GOSUB 1000 



?99 HGH 

800 AS = ' 

ESTE" 

aiO C - 7; 

820 END 

1000 N - L * 40 + C 

lOJO FOR J = 1 TO LEN tA3) 

1020 B$ - MIDS (A$,J,1) 

1030 B - hSC (BS) 

L = INT (N / 40) :C - N 

L 
FOR 1 - TO 3 
POKE T + {L - 8 « {L > 

* tL > 15)) * 128 + 40 * < 
7) + 40 * (L > 15) + <5 + 10 



7) 



1040 
40 * 
1050 
1060 
- B 
L > 
24 * 2 * I. PEEK (E + B * 8 + I 

) • 

1065 POKE T + (L - 8 * tL > 7) 




ill 



pnoGMm^om 



- B * (L > ].S)) « 128 + 40 * ( 
t. > 7} + 40 * (L > 15) 4 C + 10 
24 * (2 « I + l) , PEEK (E + B * 

a + I) 
1066 NEXt t:L - L + I 
1070 FOB I - TO 3 
1073 POKE T + (L - 8 * (L > 7) 

' B « (L > 15)) * 128 + 40 * t 
L > 7) + 40 * (L > 15) + c + 10 
24 * 2 « I, PEEK (E + B * B + I 

+ 4) 
1076 POKE T + {L - 8 * (L > 7] 

- a * CL > 15)) * 128 + 40 * ( 
L > 7) + 40 • CL > IS) + G + 10 
24 * (2 * I + 1) . PEEK (E + B « 

8 + I + 4) 

1079 NEXT 1:N - N + 1: NEXT J 

1080 HCOLOB- 6 

1090 HPLOT 25,80 TO 250,80 TO 
250,105 TO 26,105 TO 26,80 
1100 RETURN 

Consultando o anigo ameriormente 
citado, veremos que nosso programa 
utiliza a sub-rotina que come(;a na linha 
1000 para colocar os padroes das letras 
da frase contida em A$ na tela de alta 
resolufao. As vari^vejs C e L definem 
a linha e a coluna em que faremos a im- 
pressao, sempre supondo que a tela tern 
quarenta colunas e 24 linhas. 

A linha 1000 coloca em N a posigao 
da tela em que a primeira letra da frase 
sera escrita. A linha 1010 inicia um la- 
fo FOR...1NEXT que dard tantas voltas 
quantas forem as letras da frase que de- 
sejamos imprimir. 

A variavel alfanumerica B$ contem 
a letra que esta sendo escrita. A cada 
volta, um novo caractere e colocado ali, 
com o auxilio da fun^;ao MID$, e a li- 
nha e a coluna de impressao sao recat- 
culadas a partir do valor de IN. 

Em seguida, o programa inicia um la- 
90 FOR. ..NEXT que coloca na tela dois 
bytes repetidos do padrao da letra, qua- 
tro vezes. Os calculos feitos para a re- 
peti^ao dos byies sao a chave do proces- 
so de amplia^ao. 



FUNCIONAMENTO 00 PROGRAMA 



J a tivemos a oportunidade de mos- 
trar aos usuarios do Apple e do TK-2000 
como e caotica a organizagao da mem6- 
ria de video desses dois micros. A ordem 
de preenchimento das linhas de pixels do 
Apple ^ tao confusa que quern n3o tern 
certa familiaridade com a matem^tica 
dificilmente conseguir^ entender as for- 
mulas das linhas 1060 a 1076, 

Mas, no nosso caso, isso nao tem tan- 
ta importancia. Para compreender o 
funcionamento do programa, basta sa- 
ber que o primeiro la^o coloca na tela 
a metade superior da letra ampliada e 
o segundo, a metade inferior. Um carac- 



NOVA CULTURAL APRESEHTA 
INPUT 





J 



Letras de allura dupla sSo Ideals pwra 
pdgJnas-titulo de Jogos ou outros programos. 



tere comum ocuparia oito linhas de vi- 
deo com seus oito bytes, Aqui, para am- 
pliar as letras, cada byte h repetido duas 
vezes, resultando nas dezesseis linhas do 
caractere ampliado. 

Assim, a linha 1060 coloca os quatro 
primeiros bytes do padrao da letra nas 
posi^des pares do bloco grafico corres- 
pondente k metade superior do caracte- 
re ampliado, A linha 1065, por sua vez, 
coloca os mesmos quatro primeiros 
bytes nas posi?6es impares daquele blo- 
co. O processo se repete nas linhas 1073 
e 1076, so que os bytes sao colocados no 
bloco correspondente a metade inferior 
do caractere. 



ID FOR J=0 TO 50 STEP 
20 FOR X=0 TO 7 STEP 
30 UPOKE BASE (2) +1024 
K((PEEKC4>)+(PEEK(!i)* 

) 

40 UPOKE BASEt2)+1024 

EEK< (PEEK{4))+CPEEK(5 

+Y) 

50 LET Y=Y+1 

60 NEXT X 

70 FOR X-8 TO 15 STEP 

80 VPOKE BASE(2)+1024 

K[ (PEEK(4) )+{PEEK(5)* 

) 

90 yPOKE BASE (2) +1024 
EEK( (PEEK(4) )+{PEEK(5 
+ V) 

LET Y=Y+1 

NEXT X 

NEXT J 

CLS 

PfiINT"INTP0DU7.A A 

INPUT 13 

CLS:L=0;C=0 

FOR 1 = 1 TO LENdS 

LET B=ASC(MTD$(IS 

IFB<65 OR B>90 TH 



+J*B+X,PEE 
Z56)+520+Y 

+J«8+X+l ,P 
)*2!>6)+S20 



2 

+J«8+X,PEE 
256)+520+Y 

+J*e+X+] ,P 
)*256)+520 



100 

I 10 

120 

L30 

140 

150 

160 

1/0 

180 

190 



200 LOCATE C.L:PRTNTC 

CB-65) )= LOCATE C.L+1: 

129+2* (B-55) ) 

210 LET C=C+l 

220 IF C=40 THEN 



PALAVRA " 



) 

. I 
EN 



1) ) 
C^OTO 



21 



HBSd 28 + 2* 
PRINTCHR3 { 



LET C=0:L=L+2 



230 NEXT I 
240 GOTO HO 

O programa come(;a com a rotina que 
transfere os dados de definigao dos ca- 
racteres da ROM para a memiria de vi- 
deo (VRAM), nas linhas 10 a 120. 

A se^do que vai da linha 130 a 150 
limpa a tela e pede que o usu^rio intro- 
duza a palavra ou mensagem a ser am- 
pliada. As linhas 160 a 240 contem a ro- 
tina que imprime as letras no video. As 
varidveis L e C registram, respectiva- 
mente, a linha e a coluna em que serto 
impresses os novos caracteres grdficos 
que irio compor as letras. 

O lago que se inicia na linha 170 im- 
prime uma letra a cada valor de I, sem- 
pre acrescentando 1 ^ variivel C, para 
que as letras fiquem uma ao tado da ou- 
tra. Quando a frase a!can?a a extremi- 
dade da tela, a linha 200 zera C e acres- 
centa 2 k variivel L, a fim de que a pr6- 
xima letra seja escrita na primeira colu- 
na da linha seguinte. 

A linha 180 faz a variavel B assumir 
o valor do codigo ASCII do caractere 
a ser ampliado e a linha 190 verifica se 
as letras sao maiusculas. A linha 200 im- 
prime OS dois blocos gr^ficos que irao 
compor a letra, ambos na mesma colu- 
na, mas um abaixo do outro. 

Para saber como se obtem os valo- 
res colocados dentro dos parentese.s 
apos o comando CHR$, e preciso enten- 
der o processo de ampliagao. 



PROCESSO DE AMPLIACAO 



Ao ser ligado, o MSX copia o padrao 
dos caracteres gravados na ROM na 
parte de suamemoria dedicada ao video 
(VRAM). E a partir dessa tabela da 
VRAM que ele imprime as letras no vi- 
deo. Cabe ao nosso programa criar os 
blocos graficos que irao compor as le- 
tras ampliadas e coloca-los na tabela da 
VRAM, no lugar que antes era ocupa- 
do pelos caracteres padronizados, a par- 
tir do caractere de codigo 128. 

Sabemos que o padrao de um carac- 
tere e formado por oito bytes. Podemos, 
portanto, obter um caractere ampliado 
repetindo duas vezes cada byte. O en- 
dereco do padrao dos caracteres na 
ROM esta registrado nos bytes 4 e 5 e 
endere^'o do padrao de caracteres na 
VRAM e dado por BASE(2). Somando 
o endereijo ai contido a 1024, teremos 
endere^o da VRAM, que sera usado 
pcio VPOKE. 

Na linha 30, a viriavel J simplesmente 
incrementa a posi^ao nessa memoria. O 
PEEK examina o endereco correspon- 
dente na RAM, onde estao os padroes 
graficos. Para a obtengao do c6digo da 



letra A, adiciona-se o numero 520. O Y 
indica o byte a ser copiado. As linhas 
70 a 110 do programa fazem a mesma 
ctJpia para a parte inferior do bloco grd- 
fico de cada caractere. 



USO DOS CARACTEftES GRAFICOS 



Alim de ampliar os padroes preexis- 
tentes na memoria do micro, podemos 
criar nossas pr6prias letras. Essa alter- 
nativa i especialmente importante para 
OS usudrios do TRS-Color, que nio per- 
mite o acesso aos padr5es das letras. 
Aqui estSo alguns programas que titili- 
zam caractcres gr^ficos do computador 
para construir letras ampliadas. 



^10 DATA 

20 DATA 
"BCD ■ 

30 DATA 
' |]uZj " 

4 DATA 
'BSE- 

50 DATA 

"BHi:" 

60 DATA 

-|]zn " 

70 DATA 

80 DATA 

90 DATA 

100 DATA 

- Bnn - 

110 DATA 
120 DATA 

" cac " 

130 DATA 
" B-C " 
14 DATA 

- BaB " 

150 DATA 

- EHB ° 
160 DATA 

- UaL" 
170 DATA 

" Bre: - 

180 DATA 
" bUiG " 
190 DATA 

" nnc " 

200 DATA 

" BHB ' 
210 DATA 

" t^l ' 

22 DATA 

" C^li - 

230 DATA 

" BBB - 

24 DATA 

' BBB ' 
250 DATA 
260 DATA 



"BaB"- 

."B5kJ" 
"BOB'". 
."BOB" 
-BHB-. 
."B:3B" 
"Bl;b". 

-BHcr. 
.-BOB" 

"Bye. 
."Byn" 

-Bn="- 

,"r r" 

"b^..". 
"I I" 

' "^P' " 

.'t_^>' '• 

-□BD ". 
."BDCl' 

"CBO", 

."Bni'i" 
-BBC, 

."Buy- 

'BOB". 
."BHtJ" 
"BBB". 
."BCB" 
"BOB". 

"BOB", 
, "BQU" 
"BHB". 
."HB!!]- 
"BCB". 
, " DBi")" 
-BBB". 
,-aBi'i' 
"BUB". 

."GBC - 

-BDB"- 
."BLIB" 

'BOB", 
."LlHJn- 

'BHB'. 
."BOB" 
"BOB". 
"BHB". 



"BEii" 
"BHri" 
"BOB" 
"BiiQ" 

"BHH* 

"BCH" 
-Bcc " 

"UriE" 
"BEIB" 
"BHB'* 
"BOB" 
"BBB" 
"BOB" 
"BJIE:" 
"W.-'l:" 
"Bar* 
"BHB" 
"BOB' 
"BHn- 

■HHB- 
"□QE" 



270 DATA "DBD-t'Ot-" 

Z80 DATA - aBC'.'BBB" 

290 POKE 23658,8: DIM aS(27.3) 

r DIM bS{27,3): DIM cSC27,.1): 

DIM d$(27,3) 

300 FOR J-0 TO 21 STEP 4 

310 FOR i-1 TO 4: READ ad(i+j} 

* NEXT 1 

320 roR i-1 TO 4s READ b9(i+j) 

: NEXT 1 

330 FOR i-1 TO 4! READ c9{J+j) 

: KEXT i 

340 FOR i-1 TO 4; READ dStHj) 

: NEXT I 

3 50 NEXT g 

360 FOR 1-2S TO 26: READ a$(i) 

: NEXT i 

3 70 FOE i-25 TO 26; READ b5 ( i ) 
: NEXT i 

380 FOR i-25 TO 26: READ cSCi) 

: NEXT i 

390 FOB i-25 TO 26! BEAD dS(i} 

: NEXT i 

400 INPUT "Introduza palavr3(m 

ax lOletraa)". LINE tS ; IF [.EN 

t$>]0 THEN LET t3-t$( TO 10) 

405 IF LEN tS=0 THEN GOTO 400 

410 LET bS-"": FOR i-1 TO LEN 

tS: IF CODE tS(l)C65 OR CODE t 

$(l>>90 THEN LET tS(l)-CHRS 

91 

420 LET a$-H$+aStCODE t$Ci)-64 

) : NEXT i 

430 PRINT B$ 

440 LET aS-"": FOR i-1 TO LEN 

ts 

4 50 LET a$-aS+bS(CODE tSCi3-64 
) ; NEXT I 

460 PRINT s$ 

4 70 LET sS""": FOB ]=1 TO LEN 

ts 

480 LET sS=8S+cS(C0DE t$Cl)-64 

) : NEXT ) 

490 PRINT 3$ 

500 LET s3-"": FOB i=l TO LEN 

ts 

510 LET BS=a$+d$(CODE tS(i)-64 

) : NEXT 1 

520 PRINT bS 

530 PRINT : GOTO 400 



10 SCREEN 

20 DIM A(78) ,B(78) ,C(78) .Dt79) 

30 FOR I-l TO 78: READ S$:A(I)-V 

ALC'^H'+SS) :NEXT 

40 FOR 1=1 TO 78 r BEAD SS:B(I)=U 

ALC"S.H"+SS) :NEXT 

50 FOR 1=1 TO 78: HEAD S$:C(I}=U 

ALC'IM'+SS) :NEXT 

60 FOR I-l TO 78:READ SS:D(I)-V 

ALC"S>H''+SS) :NEXT 

70 PRINT" introduza at^ 9 letraa 

BO INPUT TS:IF LEN (T$)>9 OB LE 

N (TS)=0 THEN 80 

90 FOB X=l TO 4 

100 FOR y=I TO LEN(T$) 

110 AS=MIDS(TS.V,1) 

120 A=ASC[AS) 




COMO USAR A IMPRESSORA PARA 

CONFECCIONAR CARTAZES 

E FAtXAS 

Os programas elaborsdos pars de- 
senhar letras grandes na tela do micro- 
computador tSm uma utilidade adicio- 
nel; a impressSo de grandes certazes 
e faixas. 

Como sabemos, as letras normais, 
obtidas em uma impressora comum pa- 
ra microcomputador, sSo muito peque- 
nas para serem vistas a distSncia. Pre- 
cisamos, assim, lanpar mio de m6to- 
dos semelhantes aos apresentados 
neste artigo para imprimir letras de ta- 
manho maior. 

A escoiha da methor solupio depen- 
derS. evidentemente, do tipo de im- 
pressora que vocd possui. 

O tipo mais simples £ aquele capaz 
de imprimir apenas texto, nao dispon- 
do de blocosgrSficos. Nesse case, pro- 
gramas que trabaiham com blocos gri- 
ficos da ROM, como os destinados ao 
Spectrum, nao podem ser utilizados dt- 
retamente com a tmprsssora, pois ela 
r>3o OS copiar^. 

Uma boa alternatiua serS modificar 
OS programas, de modo a compor le- 
tras grandes a partir dos caracteres dis- 
ponfvejs na impressora. Experimente, 
por exemploi o recurso muito comum 
de usar repetipdes do prPprio caracte- 
re, como mostramos, abaixo, com a le- 
tra I maiuscula: 

mill 

II 

n 

II 

II 
mill 

As linhas DATA, que contem os c6- 
digos dos blocos gr^ficos, podem ser 
alteradas para descrever a disposigSo 
dos caracteres usados na composiqio. 
Outra providencia necessSria & mudsr 
OS comandos PRINT (que cotocam o re- 
suttado apenas na tela) para o equiva- 
lente ao comando de impressao exis- 
tente em seu computador: LPRINT jnos 
micros TRS-80, Sinclair e MSX). PR# 1 
(no Apple) e PRINT # T (no TRS-Color). 

5e sua impressora tiver capacidade 
gr^f ica, o trabalho serS ainda mais ficil. 
Usando um comando especfftco, como 
oCOPV, nosmicrosdatinha Sinclair, ou 
um programa de descarregamento de te- 
la, voc§ poder^ transferir para o papel o 
cartaz desenhado na tela do computador 
com OS programas aqui apresentados. 



IPlPi PftOGRAMA^AOB/^i 



]27 IF 
TO 70 

129 LET A-=A-64 

130 B-(A-1)*3 
140 ON Y. GOSUB 
150 NEXT 1 

]60 PEtlNT 
1/0 NEXT X 
180 GOTO 70 
190 FOB R=B+] 
ACR)) ; :NEXT H 
200 FOR H-B+1 
8(R)] i :NEXT R 
210 FOB R-B+1 
C(B) ) ; :NEXT H 
220 FOB R-B+1 
D(B) > ; :NEXT R 



A<65 OH A>90 THEN CLS:GO 



190,200,210,220 



TO B+3:PBINTCHBS( 
PRINT" " s : RETimW 
TO B+3 :PBINTCHBS( 
PRINT" "i:RETUHN 
TO B+3 :PB]NTCHBS( 
PRINT" " ; : RETURN 
TO B+3;PRINTCHBS( 
PRINT- "i:RETUHN 
DATA C7,DF,D6,DB,DF,D6 



230 

240 DATA C7,DF.D6.DB,DF.D6 

250 DATA DB,DF,D3,DB,DF,D3 

260 RATA DB,DF,DD,DB,20,DD 



270 
2B0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



D5 , DB , 

nB,2D, 

DB.DE, 

C7,DF 

C7,DF, 

C7.DF, 

DB.ZO, 

DD,20, 

DD.ZO, 

DD.20, 

DO. 20, 

DB.DC, 

DB.20. 

20, DB, 

DB,C7, 

DD,DD. 

DO, 20. 

DD.20, 

CI , DC , 

DB, 20, 

DD,D6, 



D3,D5, 
DD , DB , 
DD.DB, 
D6 , DB , 
D6,DB, 
D6,DF, 
DD,DD, 
DD , DD , 
DD.DF, 
DD.DB, 
2 0, DB, 
20. DB. 
2 0, DB, 
20.20. 
20. DB, 
DD.DD, 
DD , DB , 
DD.DB. 
20,20, 
DD.DD, 
DD.D5, 



DB,D3 
20,20 
20, DD 
DF,D6 
DF.D6 
DB.D3 
20. DD 
20, DD 
DF.D6 
DC,D3 
20, DD 

DC, 20 
DCDD 
DB,20 
20,20 

DD , DD 
20, DD 
20, DD 
DB, 20 
20, DD 
C7,20 



480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 



DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



C1,D4 
C7,DF 
DD,20 
DB.20 
DB.DS 
20, DB 
DB,C1 
DD,20 
DD.20 
DD,D6 
20,20 
DB,20 
DD , DD 
20, DD 
DD, 20 
CI , DC 
DB.DC 
DB.OC 
D4.DB 
DB. 20 
DD.20 



,D3.20, 
.D6,DB, 
, 2 . DB , 
, 20.DB, 
, DD . DB , 
, 20,D6 
.20,DB 
, DD , DD 
, DD , DB 
, DD , DB 
,DD,20 
. DD , DE 
, DD . D4 
, 2 , D4 
.DD.DB 
, D3,DB 
. D6.DB 
, DD.DB 
,D6,C1 
, DD.DB 
. DD , DD 



C7.20 
20.DD 
20. DD 
20,20 
,20, DD 
.DB,20 
,20,20 
, DD , DD 
, DF.20 
, DF . D6 
,DB,ZO 
.DE,20 
.CI, 20 
,D3.20 
,DC.D3 
, DC,D3 
,20,20 
. 20,DD 
.DB.20 
. DC , DD 
, DE , DD 





690 DATA CI .DC. D J. DB, 20, 20 
700 DATA C1,C7,D6,DB, 20,DD 
710 DATA C1,DC.D3,20,DB,20 
7 20 DATA DB,DC.DD,20,DD,20 
7 30 DATA Cl.Cl ,D3,DD. 20.DD 
740 DATA 20. DO, 20, CI, DC, D6 



10 DlH L(Z,3,25) 

20 FOB J-0 TO 25; FOR K-0 TO 3 : F 

OH L-0 TO 2;BEAD L (L , K , J) :NEXT 

L.K.J 

30 CLSO 

40 PRINT «480."INTRODUZA A PALA 

UBA " " ■ B3 ■ 

50 A$-iNKEYS:IF(AS<"A" OR A5>'*Z 

")AND AS<>CHRS(e) AND ASOCHBS { 

13} AND AS<>" " THEN 50 

60 IF AS-CHftSC13) THEN 110 




FKOORAMA^BASli 



70 IF A3-CHR$(8) AND B$'" THEN 

50 
80 IF AS"CHH$(8) THEN BS-LEFT5< 
BS.LENtBS)-!} :GOTO 30 
90 IF LEN(B$>>9 THEN 50 
100 B5-BS+AS:G0TO 30 
110 IF B$-"" THEN CLS:END 
120 CLSO; PRINT «480 , "COR (1-B) 
?" : 

130 A$-INKEy5:IF AS<"1'' OH A$>" 
G" THEN 130 
140 CLSO:CL-VAL(AS) 
150 FOR Y-0 TO 3 : FOR C-1 TO LEN 
(BS) :FOH X-0 TO 2 
160 IF MIDS(BS.C,i)-" " THEN PB 
INT CHBS (128) :; GOTO 180 
170 PRINT CHR$(84+CL"16+L(X,Y,A 
SC(MID${BS.C, l))-65)) ; 
180 NEXT X,C:PRINT STRINIGSn2-P 
03(0] ,128) ; :NEXT Y 
190 BS""":GOT0 40 



! ' ' I ' ■■11 



1000 DATA 42,40,38,38,26.38,42, 

40,38.38,28.38.42.40.30.39.31,3 

6,38.28.38,39,31,36 

1010 DATA 42.40,38,38,28.28.38, 

28,28,39.31,38.42,40.30.38.28.3 

8,38,28.38.39,31.36 

1020 DATA 42.40,36,39.31,30,38. 

28,28,39,31.30,42,40,36,38,28,2 

8.42,40,36,36.28, 28 

1030 DATA 42.40,38,38,28,28,38, 

29,30,39,31,38,38,28,38.39,31.3 

8,38,28,38,36,28.38 

1040 DATA 40,42,36,28.36,28.28, 

36,28,31,39.30.28.41,36,28,33,2 

8.28,33.28.39.35.28 

1050 DATA 38,29.36.39.36,28,42. 

30 . 26 . 38 . 32 , 30 . 38 . 28 , 28 , 36 , 28 , 2 

8,36,28.28,39,31.30 

1060 DATA 39,29,38,38,38.38,38. 

28 . 38 . 38 , 28 , 38 . 39 . 26 , 38 , 42 , 30 . 3 

8.38.17,38,38,32.38 



I 
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Lelrasi maluiiculas no TRS-Color. 



1070 DATA 42,40.38,38,28,38.38. 

28. 38. 39. 31. 38, 42. 40, 3B.3B. 28. 3 

8.42.40,36.36,28,28 

1080 DATA 42.40.38,38.28.38,38, 

30,38.39,35.38.42.40.38.38,28,3 

8.42.41.36.38,28,38 

1090 DATA 42.40.38,39,31,30,28, 

28,38,39,31,38,40,42,36,28.38,2 

8,28,38,28,28,38,28 

1100 DATA 38,28,38,38,28,38,38, 

28,38,39.31,38,38,28,38.38,28,3 

8,33.28,38,32,34,28 

1110 DATA 38,28,36,38.28,38,38, 

38.38,39.39,38,38,28,38.32.34,2 

8,29.37,28,38,28,38 

1120 DATA 38,28.38.39,31,38,28. 

38 , 28 , 28 . 38 , 28 , 40 , 40 , 38 . 28 . 29, 3 

6,29,36,28,39,31,30 

Os programas apresentados funcio- 
nam de maneira bem parecida. Eles co- 
mecam dimensionando as matrizes que 
irao center os caracteres gr^ficos da 
ROM necessarios a formagao das diver- 
sas letras. O Spectrum emprega o co- 
mando POKE para travar as letras 
maiiisculas. O Spectrum e o MSX usam 
quatro matrizes, uma para cada linha 
das letras. Os demais trabalham s6 com 
uma matriz. 

Ao ser rodado, o program^a demora 
um pouco para funcionai, devido a lei- 
tura das linhas DATA pelo comando 
READ. No Spectrum, essa tarefa e fei- 
ta pel as linhas 290 a 390 do programa; 
no MSX, pelas linhas 30 a 60; nos de- 
mais compuiadores, so pela linha 20. 

Em seguida, intcia-se a rotina prin- 
cipal, que possibilita ao usudrio escre- 
ver uma palavra. Esta deve ter, no md- 
ximo, dez letras. 

Depois de verificar se a cadeia de ca- 
racteres digitada i vilida, o programa 
comeija um Ia90 FOR... NEXT que im- 
prime uma das letras a cada volta. Esse 
laco e igual ao do ultimo programa deste 
artigo, e so termina quando a liltima le- 
tra liver sido impressa. 



O Spectrum usa quatro lagos 
FOR... NEXT, um para cada linha das 




THESE 
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BIG 
\^LETTER5 



.e no Spectrum. 



letras, ja que elas tem quatro caracteres 
de altura, O primeiro latjo adiciona um 
grupo de trgs caracteres a s$, para cada 
uma das letras da frase. Quando nao ha 
mais letras, o computador imprime s$. 
O grupo de caracteres adicionado a s$ 
varia conforme a linha impressa. Como 
podemos observar nas linhas 420, 450, 
480 e 5 10, adiciona-se primeiro o cor- 
dao a$, depois b$, cS, e, finalmen- 
te, o d$. Cada um desses cordoes e, de 
fato, uma matriz. Os numeros entre pa- 
renteses determinam qua! elemento se- 
rd adicionado a sS. 



El 

Assim que digitamos o texto e tecla- 
mos ENTER, o computador salta para 
a linha 110, que nos permite escolher a 
cor em que o texto sera impresso. As li- 
nhas 130 e 140 se encarregam de acer- 
tar as cores e o programa prossegue com 
trgs la?os FOR— NEXT. 

A linha 160 imprime um bloco negro 
sempre que o caractere do texto for um 
espa?o, Depois, o computador pula a li- 
nha 170, indo direto k 180. 

A Lnha 170, embora parega extrema- 
mente complicada, apenas imprime o 
pr6ximo caractere grifico da letra que 
esta sendo desenhada. Os cdlculos entre 
parenteses fornecem o c6digo do carac- 
tere adequado. A primeira opera^ao con- 
siste na soma do numero 84 ao codigo da 
cor multiplicado por 16. Segue-se a adi- 
Cao do resultado ao numero apropriado 
da matriz. L(X,Y,ASa!VIID$(B$,C,l)) 
— 65) determina qual elemento da ma- 
triz L sera usado nos cilculos. 

Os numeros das linhas DATA — co- 
locados depois na matriz L ^ corres- 
pondem aos c6digos dos diversos carac- 
teres gr^ficos (basico.s, pretos e verdes) 
menos 100. Eles sao distributdos em gru- 
pos de doze (quatro linhas de tr§s carac- 
teres) para cada letra, de modo que o 
13? numero da lista corresponde k letra 
B, 25?, ao primeiro caractere da letra 
C e assim por diante. 



Quando o computador identifica o 
elemento da matriz que deve imprimir, 
a linha 170 usa a funcao ASC para cal- 
cular seu cddigo e a fun^ao MIDS para 
saber de qual letra da frase se trata. Os 
tres nijmeros entre parenteses do MIDS 
definem o cordao que sera cortado 
(BS.em nosso caso), seu comprimento 
(C, em nosso caso) e o numero de ca- 
racteres que se deve obter a partir deste 
ponto (I, em nosso caso). 

O ponto e virgula apos a formula da 
linha 170 evita o sallo de linha, fazen- 
do com que as letras ampliadas sejam 
escritas uma ao lado da ouira. 

Na linha 180, duas instrucoes NEXT 
chamam os valores seguintes de X (que 
controla a impressao do caractere ade- 
quado da linha da letra) e de C. 

A segunda parte da linha 180 impri- 
me um niimero de blocos negros sufi- 
ciente para que o computador passe a 
pr6xima linha e comece a montar a ca- 
deia seguinte de caracteres graficos ^ 
sao quatro cadeias ao todo. Ao se com- 
pletar o ultimo lago, sua frase estari es- 
crita na tela, na cor escolhida e em ta- 
manho ampliado. 

A linha 190 aguarda que outra tecia 
seja pressionada, para que o computa- 
dor volte a linha 40 e permita a entrada 
de uma nova palavra. 

Quando voce quiser interromper o 
programa, voltando ao BASIC, basta- 
ra entrar uma frase "vazia" — ou seja, 
apertar ENTER antes de digitar quaJ- 
quer letra — ou pressionar BREAK. 



m 

A introducao da palavra (com, no 
m4ximo, nove letras) e feita nas linhas 
70 e 80. O la?o que vai da linha 90 a 1 70 
"desmonta" essa palavra. letra por le- 
tra, e desenha na tela cada uma das qua- 
tro camadas que formam um caractere, 
chamando as rotinas das linhas 190 a 
220 atraves de um ON x GOSUB (li- 
nha 140). O e6digo que sera usado, cat- 
culado a partir do codigo ASCII do ca- 
ractere, na linha 130 do programa, e ar- 
mazenado em B. 

As linhas 230 a 740 contem os c6di- 
gos grificos que compoem as quatro ca- 
madas de cada caractere. 



ia^'^[i][^ 



Os programas deste artigo mostraram 
duas maneiras de criar letras ampliadas. 
No proximo artigo, voce vera como ob- 
ter outro tipo de caractere e, tambem, 
como ulilizar todos esses metodos em 
sens prdprios programas. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMAQAO BASIC 

Velocidade de execupao em programas BAISC. Cronometragem dos 
comandos, Relagao entre estrutura, mem6ria e velocidade. 

PERIFERICOS 

Como funciona uma caneta 6ptica. Sensibilidade. Resolupao 
alta e baixa. Problem'as de compatibilidade. 

PROGRAMAQAO BASIC 

Adaptagao da escala dos caracteres para qualquer altura 
e largura. Como desenhar seu pr6prio tipo de letra. 

aplicacOes 

Um assistente para o DOS. Como funciona 
o programa. Limitapoes. 




